’ Texas Instruments 
% • 

Improving Man’s Effectiveness Through Electronics 


' x;j * v 


; ‘-V scdi 


Y * 




Model 990 Computer 

; \ 

Co-Resident Sys Listing 


-4 





Digital Systems Division 





n 


Texas Instruments 

INCORPORATED 


QUANTITY 

PER 

ASSEMBLY 


UN" DWG. 


NUMBER ASSEMBLY ISSUE SIZE 

0004 00001.000 EA 


date 03/10/77 


PART NUMBER 


LIST of MATERIAL 


PAGE 2 of 3 


DESCRIPTION 


0948927-9901 AL.PXREDT » TEXT EDITOR-PXR990 


PART NUMBER REV 


LM 0948931-0001 fc 


VENDOR PART NUMBER 


0004A 


.PXPSRC.PXREDT 


00048 


• PXROBJ.NEMOBJf EOT) 


0005 00001.000 EA 


0948928-9901 AL*PXRBUF,RES MONITOR BUFFER 0EF-PXR99C 


0005A 


•PXRSRC.PXRBUF 


0005B 


• PXROBJ.NEMOBJf PXR BUF) 


0006 00001.000 EA 


0948930-9901 AL.CMDEFQ, COMMAND DEFINITION T8L-PXR99< 


0006A 


•PXRSRC.CMDEFQ 


0006B 


, PXR08J.NEM0BJC CMOEFQ ) 


0007 00001.000 EA 


0948934-9901 AL * PRLDOR » LOADER DR! VER-PXR990 


0007A 


•PXRSRC.PRLODR 


00079 


• PXROBJ.NEMOBJf PRLDDR) 


0008 00001.000 EA 


0948935-9901 AL«0VELAY t OVERLAY SUPER VI S0R-PXR990 


0008A 


. RXRSRC.OVELAY 


00088 


• PXROB J.NEMOBJ f OVELAY I 


0009 00001.000 EA 


0948937-9901 AL.PROMLD* PROM LOADER-PXR990 


0009A 


• PXR SRC. PROMLD 


0009B 


• PXR SRC .NE MOB J I PROMLD) 


0010 00001.000 EA 


0948938-9901 ALtMlNlT, INITIALIZE M0NIT0R-PXR990 


001 OA 


.PXR SRC.INITM 


DATE CKD. DRAFTSMAN 


DATE APPD. PROJECT ENGINEER 


DATE DESIGN ENGINEER 


DATE RELEASED 


SP, CO-RES PROTO SYS LISTINGS! AL I -PXR 990 


DATE PROJECT NO. 


P ART NUMBER 


LM 0948931*0001 (\ 




^Seisr* Y* n STT3TC7 "7T 




























NGSVIIT 

LIBRARY DSC-2. PXROBJ. PX90BJ 
LIBRARY DSC 2. PXROBJ. NEWOB-J 
PHASE O, PXRATE 


INCLUDE 

< PXRBUF > 

INCLUDE 

< ASM > 

INCLUDE 

<EDT> 

INCLUDE 

< TRrA I NT > 

INCLUDE 

< SETREG > 

INCLUDE 

<SETTRB> 

INCLUDE 

< M I N I T > 

INCLUDE 

C ERR I NT > 

INCLUDE 

< WKSPMG > 

INCLUDE 

< CMSTRP > 

INCLUDE 

PC OUT > 

INCLUDE 

C GTFELD > 

INCLUDE 

< GTHEX > 

INCLUDE 

< SUPVSR > 

INCLUDE 

< CON VRT > 

INCLUDE 

< RSQLUN > 

INCLUDE 

< CHAR in:.' 

INCLUDE 

<DISIO> 

INCLUDE 

< DSR733 > 

INCLUDE 

< SB > 

INCLUDE 

< RANGE > 

INCLUDE 

C 1 M > 

INCLUDE 

<IC> 

INCLUDE 

< 1 NWKSP > 

INCLUDE 

< INSF'SS) 

INCLUDE 

<MODME> 

INCLUDE 

< MODCR > 

INCLUDE 

< MODREG > 

INCLUDE 

< MODWP > 

INCLUDE 

< PRTMMC > 

INCLUDE 

<PRTSSN> 

INCLUDE 

< PRLDDR > 

INCLUDE 

< OVEL AV > 

INCLUDE 

< PROMLD > 

INCLUDE 

< USRPGM > 

INCLUDE 

< RUNPGN > 

INCLUDE 

< SSNRP > 

INCLUDE 

SCNTBL > 

INCLUDE 

< S I EPR > 

INCLUDE 

< BKPPR > 

INCLUDE 

CLEAR > 

INCLUDE 

< F I ND > 

INCLUDE 

<HXRRTH> 

INCLUDE 

< WRTPRT > 

INCLUDE 

< FPDEFP > 

J NCL.UDE 

< TTVPT > 

INCLUDE 

<CMDEFQ> 

INCLUDE 

< PXD AT A > 

PHRSE 1.. 

PXRLAL 

I NCL.UDE 

<LALN > 

P HHhE. I..- 

PXPRBS 

INCLUDE 

< ABSDMP > 

INCLUDE 

< RBSL.D > 

PHRSE 1, 

PXRPROM 

INCLUDE 

<PROMPG> 

PHRSE 1, 

PXRBNPF 

INCLUDE 

< DMBNPF > 

PHRSE 1, 

PX PHILO 

I NCL.UDE 

< DMHL > 

END 

•*EMD OF 

BUILD PH A: 


948929-9901 *A PAGE 0002 



SDSL ED 947288 *B 
PXRLAL l 


3 19:27:15 MONDflV, FEB 21, 1977 

LENGTH 0SB0 PROGRAM ORIGIN 4F0C 


PAGE 3 
948929-9901 *A 


MODULE PROGRAM 

NAME LENGTH ORIGIN 


DATE 


TIME 


PXRLAL 


06B0 


4F0C 


02/20/77 


15:56: 47 


DEFINITIONS 


NAME 


VALUE 


NAME VALUE 


NAME VALUE 


NAME VALUE 


*BEGLAL 4F0C 


*ENDLAL 55BA 


LALCSR 4FCB 


c 



SDSLED 947288 +B 19:27:15 MONDAY, FEB 21, 1977. 

PXRRTE LENGTH 55BC PROGRAM ORIGIN 0000 


PAGE 4 

948929-9901 *A 


MODULE 


PROGRAM 




MODULE 

NAME 

LENGTH 

ORIGIN 

DATE 


TIME 

SOURCE 

PXRBUF 

0002 

0000 

11/11/76 


08:53: 32 

SDSMAC 

ASM 

1B7C 

0002 

19//?/ 


17:44: 10 

MIRA99 

PXREDT 

108E 

1B7E 

25//7Z 


10:06: 29 

MIRA99 

TRACEM 

8558 

2C0C 





SETREG 

80R6 

3164 





SETRAC 

089E 

320A 





MI NIT 

0032 

32A8 

00/00/00 


02:12: 37 

SDSMAC 

ERR I NT 

001R 

32DA 





WKSPMG 

008C 

32F4 





CMSTF'P 

0148 

3380 

12/02/76 


09 : 13 : 41 

SDSMAC 

PC OUT 

0010 

34C8 





GTFELD 

0888 

34D8 





GTHEX 

0888 

3560 





SUF'VSR 

809E 

35E0 





CONVRT 

8±±E 

t- 1*‘ E 





ASGL.UN 

G03C 

379C 





CHAR IN 

88D0 

37D8 





DISIO 

01R6 

38A8 

00/00/00 


20:52:35 

SDSMAC 

DSR733 

8454 

3A4E 





SB 

8858 

3EA2 





RANGE 

8846 

3EFA 





IM 

8012 

3F40 





IC 

88 1C 

3F52 





INWKSP 

8858 

3F6E 





INSPSS 

8824 

XF Cfc- 





MODME 

0030 

3FEA 





MODCR 

0082 

401A 





MODREG 

0082 

409C 





MODWP 

085C 

411E 





PRTMMC 

8896 

417A 





PRTSSN 

886R 

4210 





PRLDDR 

017R 

427A 

09/29/76 


11 : 15 : 32 

SDSMAC 

OVELAV 

007E 

43F4 

11/08/7 6 


08 : 43 : 11 

SDSMAC 

F'ROMLD 

88 2 H 

44 1*’ 2 

00/00/00 


17 : 52 : 14 

SDSMAC 

USRF'GM 

0 8 0 R 

449C 





RUNPGN 

0090 

44A6 

02/20/77 


15 : 42 : 15 

SDSMAC 

SSNAP 

80B© 

4536 





SCNTBL 

0038 

45E6 





SIEPR 

805E 

4616 





BKPPR 

8064 

4674 





CLEAR 

883 R 

46D8 





FIND 

08R6 

4712 





HXARTH 

006 R 

47B8 





WRTPRT 

084R 

4822 





FF'DEFP 

0008 

48SC 

00/00/00 


09 : 09 : 52 

SDSMAC 

TTVPT 

02 R 4 

486C 

1 1 / 1 1 r 6 


08 : 57 : 02 

SDSMAC 

CMDEFQ 

00E0 

4B10 

00/00/00 


00 : 15 : 47 

SDSMAC 

PXDAT A 

831 C 

4BF0 







D E F I 

N I T I 0 N 

g 



NAME VALUE 

NAME VALUE 

NAME 

VALUE 

NAME 

VALUE 

ACL 33 

8R 

ASLUN 379C 

ASMCSR 

044A 

*BDA 

000R* 

E:*‘ i J N P X R y y y y 

: + : BHA 000C* 

BKPT 

4D5C 

BKPTPR 

4674 

BKSTR 4C 

D8 

BKSTRB 4CE0 

BLANK 

4CA4 

BPTAB 

4Dfe2 

BS 4C 

RC 

BSFLG 4D96 

CBD 

4BFE 

CBDSTG 

4C00 



SDSLED 94 

•7288 +-B 

19 : 27 : 

15 MONDAY, FEB 21, 

1977. 


PAGE 5 

PXRATE 


LENGTH 55BC 

PROGRAM ORIGIN 

0000 

948929-9901 *A 

NflME 

VALUE 

NAME 

VALUE 

NAME 

VALUE 

NAME 

VALUE 

CBH 

4BFS 

CBH0 

4BF8 

*CBH2 

4BFA 

CBP 

46D8 

CDNDT 

38 EE 

+CHB 

4BFS 

+CHBVAL 

4BF2 

CLDT 

3928 

CLEfiRP 

4822 

CLST 

3S7E 

+CMDMSK 

393E 

CMDTBL 

4B10 

CN'v'RT 

368E 

COMMA 

4CA7 

CPLSAV 

4D92 

CR 

4CAA 

CRLF 

4CB8 

CRR 

46E4 

CRUOFF 

1FE0* 

CRUPRT 

1FA0* 

cs 

0001 + 

CSBACK 

0000 + 

CSFWD 

0000 * 

CSOPEN 

3R90 

CSP 

3380 

CSRflSC 

3A98 

CSRWND 

0000 * 

CSS 

46DE 

CSUNLD 

0000 + 

CSWASC 

3B5C 

CSWEOF 

3BDC 

*DAB 

000B* 

DC7331 

3A4E 

DCTTVT 

488E 

DFB I AS 

4CA2 

DMPSPR 

4CD4 

+ DUM 

807F* 

EOTCSR 

1D24 

EFMASK 

393D 

El 

32DA 

ENDBUF 

0002 

ENTS I Z 

080 A* 

EOR 

4CAA 

EQSIGN 

4CD2 

ERBUF 

4CBD 

ERROR 

3858 

ERSTR 

4CB8 

ESC 

4CAD 

EXCT 

449C 

FBT 

4 »** SS 

*FPSTRT 

FE08+ 

FPWP 

F800+ 

FREMEM 

4DCC 

FWD 

4712 

GETBUF 

32FA 

GETCHR 

37D8 

GETFL.D 

34DC 

GETFLN 

34D8 

GETHEX 

35S4 

GETHXN 

3560 

+HAB 

000D* 

HILIM 

4DA2 

HXAR 

47B8 

I CP 

3F52 

IMP 

3F40 

INCHAR 

4C12 

INI MEM 

32F6 

INIT 

32A8 

I NSC NT 

4D98 

10 

394E 

IRP 

40AA 

ISRFLG 

4D2C 

ISS 

3FC6 

I HP 

3FSE 

LDABS 

4284 

LDADDR 

4C2A 

LDBUF 

4C34 

LDCBA 

4C38 

LDCBBC 

4C32 

LDCC 

4C2E 

+LDENTV 

4C86 

LDFLG 

4C28 

+LDLDPT 

4C88 

LDLUN 

4C27 

LDNMCC 

4C8A 

LDOPCD 

4C2S 

+LDPGNM 

4C8B 

LDPRB 

4C24 

LDPRT 

4820 

LDTBL 

4C8S 

LDUFL 

427A 

*LF 

4CRB 

LGRflSC 

3BF3 

LOW A SC 

3D12 

LOAD 

427E 

LOADOV 

429A 

♦LOG 

0000 + 

LOWLIM 

4DA0 

*LWP 

3302 

MEMWP 

4DAC 

MINUS 

4 CAS 

MODCRU 

401C 

MODMEM 

3FEA 

MODWSP 

411E 

MONCHR 

3D 8 6 

MRP 

48B2 

+NOCELS 

000 A + 

NOCMDS 

4BEE 

NUMBPS 

0004+ 

NUMSNP 

0004+ 

NUMTR 

0004+ 

NUMTTE 

0004+ 

♦OPEN 

0000 + 

*OVLRET 

4428 

OVL.V 

43F4 

PCOUT 

34C8 

PERIOD 

4CA9 

PL 

4472 

PLUS 

4 CAS 

PRBBUF 

4C1A 

PRBCC 

4C1E 

PRBUER 

4C18 

PRC LOS 

49A0 

PRCRLF 

37F8 

PRDASC 

49 AS 

PRD I RT 

4A22 

PRINT 

3800 

PRNTC 

37 FC 

PRNTHB 

381 A 

PRNTHN 

S *C« «r.:’ 0 

PRNTHX 

3826 

PROMPT 

4CB4 

PROPEN 

4994 

F'RTCRU 

418C 

PRTMEM 

417A 

PRTPRD 

4CDS 

PRTSS 

4218 

PTCEOF 

48BS 

PTCLOS 

48AE 

PTDIFF 

4CCA 

PTDIRT 

4924 

PTOPEN 

4890 

PTOPRW 

48 A 2 

*PTP 

0002 + 

+PTR 

0003+ 

PTRILL 

498 S 

PT SUM 

4CC4 

PTWASC 

48CE 

PTWEOF 

495C 

RANGEX 

3F02 

+RDASC 

0009+ 

RETBUF 

32FE 

RGSTR 

4CE2 

RGSTRB 

4CE4 

ROML.DR 

FFFA+ 

RR 

338E 

RUBOUT 

4CAE 

RIJN 

44AS 

+RWP 

330S 

SAVWP 

4D90 

SBP 

3EA4 

SCTB 

45ES 

SETLUN 

3910 

SIE 

4S1S 

SIEINT 

4b4s 

SIEST 

4 DSC 

SIEWP 

4D8A 

SIINPG 

4D8E 

SNAPS 

4D3S 

SNF'ENT 

0008+ 

SNPTAB 

4D3C 

SR 

3 IS 4 

SREGN 

4BAA 

SSS 

453S 

SSSTR 

4CES 

SSSTRB 

4CED 

STRACE 

32 2 S 

STRPRT 

4D94 

+SVC: 

087C+ 

SVCALT 

4C20 

SVCPRB 

4C0S 

SVCSFG 

4C0R 

SVCSR 

3S02 

SVCSRA 

35FE 

+SVCUSR 

4 COB 

+SVCW10 

4DAA 

+SVCW7 

4DA4 

SVCWP 

4D9S 

SVCWRT 

4C1.4 

SVMT 

0001 

TERM 

44A2 

TERMCR 

4CAF 

TRACE 

4D2S 

TRACER 

2 D 02 

TRFLGS 

0000 + 

TRHIGH 

£1004+ 

TRLNTH 

4D2A 

TRL.QW 

0002 + 

TRNARA 

4F0C 

TRTBL 

4CEE 

TRTVPE 

000S + 

TRVl 

0008+ 

TTTBL 

4D2E 

*UEFMSK 

393F 

U EM ASK 

393C 

USRF’C 

4D9C 

USRST 

4D9E 

USRWP 

4D9A 

USRWSP 

4D88 

+MTASC 

000B+ 

ZERO 

4CA5 




o 



PRQE 


SDSLED 94 
PXRABS 

MODULE 

NAME 

ABSDMP 

RBSLD 


NAME 


7288 *B 19:27:15 MONDAY, FEB 21, 1977. 

LENGTH 0456 PROGRAM ORIGIN 4F0C 

PROGRAM 

LENGTH OR I G I N DATE 


TIME 


948929-9901 



MODULE 

SOURCE 


0242 4F0C 

0214 514E 

DEFINITIONS 

VALUE NAME VALUE NAME VALUE NAME VALUE 


ABSLDR 5164 *DF'RG 


: + ; ABSBUT 514E 


4F7E 


SDSL ED 947288 *B 
F'XRPRO 


19:27:15 MONDAY, FEB 21, 1977. 


MODULE 

NOME 

F’ROMPG 


LENGTH 0690 


PROGRAM ORIGIN 4F0C 


LENGTH 

0690 


PROGRAM 

ORIGIN 


NAME 
F'GB I AS 


VALUE 

4F5C 


DATE 

4F0C 

DEFINITIONS 
NAME VALUE NAME VALUE 

*F’PCS I 5020 PR0GS2 4F5E 


PAGE 7 

948929-9901 *A 

MODULE 

TIME SOURCE 


NAME VALUE 
*PSCSI 546 A 


I 


SDSL.ED 9475 
PXRBNP 

MODULE 

NAME 


-88 19 : 27 : 15 MONDAY, FEB 21, 1977 

LENGTH 0282 PROGRAM ORIGIN 4F0C 


PAGE g 

948929-9901 *A 


PROGRAM 

LENGTH ORIGIN 


DATE 


TIME 


DMBNPF 


0289 


4F0C 


DEFINITIONS 


NAME VALUE NAME VALUE NAME VALUE NAME VALUE 

*DMBNPF 4F9C 



0*i Cl 



DSLED 94 
XRHIL 

MODULE 

NAME 


OO 


*B 19 : 27 : 15 

LENGTH 02D6 


PROGRAM 

LENGTH ORIGIN 


MONDAV, FEB 21, 

1977. 

PAGE 9 

PROGRAM ORIGIN 

4FQC 

948929-9901 *A 



MODULE 

DATE 


TIME SOURCE 


DMHL. 82D6 4F8C 


DEFINITIONS 

NAME VALUE NAME VALUE NAME VALUE NAME VALUE 

*DMHL 4F7C 

>38 A A BVTES OF LIST SPACE USED OUT OF >4000 


**:+::+: LINKING COMPLETED 





o 




T.l. 13849 



Texas Instruments 

INCORPORATED 


0010A 


QUANTITY 

PER 

ASSEMBLY 


UNIT DWG. 

ISSUE SIZE 


date 04/26/77 


PART NUMBER 


LIST of MATERIAL 


PAGE || of 


DESCRIPTION 


IPXRATE-ROOT 


PART NUMBER REV 


LM0948929-9901 A 


VENDOR PART NUMBER 


0011 


0945330-9901 AL, CMSTPP.CMD STRING PROC , PR0T0-PX990 


00114 


PXRATE-ROOT 


0012 


0945369-9901 Alt PCOUTfOUTPUT DATA, FRONT PANEL-PX990 


0012A 


PXRATE-ROOT 


0013 


0945356-9901 AL, GTFELD, INPUT CHARACTER STRING-PX990 


00134 


t PXRATE-ROOT 


0014 


0945357-9901 AL, GTHEX, INPUT HEXADECIMAL NUMBER-PX99< 


0014A 


PXRATE-ROOT 


0015 


0945381-9901 AL» SUPVSR , SUPER VI $0R CALL I/F-PX990 


0015A 


PXRATE-ROOT 


0016 


0945352-9901 AL, CONVRT , ASCI I /8I NARY CONVERS I0N-PX99I 


0016A 


PXRATE-ROOT 


0017 


0945346-9901 AL, ASGLUN, ASSIGN LUNO-PX990 


0017A 


PXRATE-ROOT 


0018 


0945348-9901 AL, CHAR IN, CHARACTER INPUT-PX990 


001 8 A 


PXRATE-ROOT 


0019 


0948939-9901 AL ,MPX IOS , I /C 0ISPATCHER-PXR990 


0019A 


PXRATE-ROOT 


0020 


DATE CKD. DRAFTSMAN 


0945353-9901 Alt D$R 733 , 733 ASR DEVICE DRIVER-PX990 


DATE DESIGN ENGINEER 


LMLt PX RATE f CO-RES PROTO SYS H0N-PXR990 


DATE APPD. PROJECT ENGINEER 


DATE RELEASED 


DATE PROJECT NO. 


PART NUMBER 


LM 0948929 -" 0 * a 


T.l. 13849 



Texas Instruments 

INCORPORATED 


DATE 04/26/7? 


LIST OF MATERIAL 


PAGE / X 


of 


PART NUMBER 


LM0948929-9901 


r PRINT 

ITEM 
NUMBER 

QUANTITY 

PER 

ASSEMBLY 

UNIT 

OF 

ISSUE 

DWG. 

SIZE 

PART NUMBER 

DESCRIPTION 

VENDOR PART NUMBER 

0020A 






PXRATE-R00T 




0021 

REF 

EA 


0945377-9901 

AL, SB, SET BREAKR0INT-PX990 



0021 A 






PXR ATE-ROOT 




0022 

REF 

EA 


0945375-9901 

AL, RANGE, EXTRACT RANGE/ PAP.AMETERS-PX99C 


0022A 






PXRATE-ROOT 




0023 

REF 

EA 


0945360-9901 

AL, IN, INSPECT MEMORY-PX990 



002 3 A 






PXRATE-ROOT 




0024 

REF 

EA 


0945359-9901 

AL, IC, INSPECT CRU PR0CESS0R-PX990 


0024A 






PXRATE-ROOT 




0025 

REF 

EA 


0945363-9901 

AL, INWKSP, INSPECT W0RKSPACE-PX990 


0025A 






PXRATE-ROOT 




0026 

REF 

EA 


0945362-9901 

AL, INSPSS, INSPECT SNAPSH0T-PX990 


0026A 






PXRATE-ROOT 




0027 

REF 

EA 


0945365-9901 

AL, MOOME* MODIFY 

MEN0RY-PX990 


0027A 






PXRATE-ROOT 




0028 

REF 

EA 


0945364-9901 

AL, MODCR, MODIFY 

CRU-PX990 



0028A 






PXRATE-ROOT 




0029 

REF 

EA 


0945366-9901 

AL, MOOR EG* MODIFY REGI STERS-PX990 


0029A 






PXRATE-ROOT 




0030 

REF 

EA 


0945367-9901 

AL, MOOWP, MODIFY 

W0RKSPACE-PX990 


DRAFTSMAN 

DATE 

CKD. DRAFTSMAN 

DATE 

DESIGN ENGINEER DATE 

TITLE 

L 4L , PX RATE, CO-RES PROTO SYS M0N-PXR990 

APPD.-MFG. 

DATE 

APPD. PROJECT ENGINEER DATE 

RELEASED DATE 

PROJECT NO. 


PART NUMBER 

1^0948929-99°! 

REV 

A 





T.l. 13849 



tf 


Texas Instruments 

INCORPORATED 


DATE 04/26/77 


LIST OF MATERIAL 


PAGE 




of 


f PART NUMBER 

LM0948929-9901 


REV 


A 

-J 


f PRINT 

ITEM 
NUMBER 

QUANTITY 

PER 

ASSEMBLY 

UNIT 

OF 

ISSUE 

DWG. 

SIZE 

PART NUMBER 

DESCRIPTION 

VENDOR PART NUMBER S 

0040A 






PXRATE-ROOT 




0041 

REF 

EA 


0945347-9901 

AL, BKPPR ,BREADP0I NT PROCESSOR-P X990 


0041 A 






PXRATE-ROOT 




0042 

REF 

EA 


0945349-9901 

AL, CLEAR, CLEAR COMMAND PP0CESS0R-PX990 


0042A 






PXRATE-ROOT 




0043 

REF 

EA 


0945355-9901 

AL * FIND* SCAN MEMORY FOR VALUES-PX990 


0043A 






PXRATE-ROOT 




0044 

REF 

EA 


0945358-9901 

AL, HXARTH, HEXADECIMAL ARITHMETIC-PX990 


0044A 






PXRATE-ROOT 




0045 

REF 

EA 


0943524-9901 

AL, WRTPRT, WRITE 

PROTECT-PX990 


0045A 






PXRATE-ROOT 




0046 

REF 

EA 


0943523-9901 

AL, FPDEFP, FRONT 

PANEL OEF’S, 

PR0T0-PX99( 


0046A 






PXRATE-ROOT 




0047 

REF 

EA 


0948941-9901 

AL,TTYPT, PAPER TAPE 0SR-PXR990 


0047 A 






PXRATE-ROOT 




0048 

REF 

EA 


0948930-9901 

AL.CMDEFO, COMMAND DEFINITION 

TBL-PXR990 


0048A 






PXRATE-ROOT 




C048B 


■ ■ • 




MUST BE NEXT-TO-LAST IN 



0048C 


: 




PXRATE-ROOT 




0049 

REF 

EA 


0945372-9901 

AL, PXDATA, READ/WRITE DATA AREA-PX990 


DRAFTSMAN 

DATE 

CKD. DRAFTSMAN 

DATE 

DESIGN ENGINEER DATE 

TITLE 

LML,PXRATE, CO-RES PROTO SYS MON-PXR990 

APPD.-MFG. 

V 

DATE 

APPD. PROJECT ENGINEER DATE 

RELEASED DATE 

PROJECT NO. 


PART NUMBER 

LM ® 998 92 9-99 01 

REV 

A 

/ 


T.l. 13849 



Texas Instruments 

INCORPORATED 


DATE 04/26/77 


LIST OF MATERIAL 


PAGE of / 4T 


PART NUMBER 


LMP948929-9901 


REV 

A 


r PRINT 

ITEM 
NUMBER 

QUANTITY 

PER 

ASSEMBLY 

UNIT 

OF 

ISSUE 

DWG. 

SIZE 

PART NUMBER 

DESCRIPTION 

VENDOR PART NUMBER 

0049A 






PXRATE-ROQT 




00493 






MUST BE LAST IN PXRATE-R00T 



0050 

REF 

EA 


0948926-9901 

AL,PXRLAL, LINKING LOADER -PXR990 


0050A 






PXRA TE-P XRLAL OVERLAY 



0051 

REF 

E A 


0945388-9901 

AL, ABSDMP , DUMP ABSOLUTE-PX990 


0051ft 






PXRATE-PXRABS OVERLAY 



0052 

REF 

EA 


0945389-9901 

AL» ABSLDt ABSOLUTE L0ADER-PX990 


0052 A 






PXRATE-PXRABS OVERLAY 



0053 

REF 

EA 


0945391-9901 

AL, PROMPG, PROM PROGRAMMER, PART 1-PX990 


0053A 






PXRATE-PXRPRO OVERLAY 



0054 

REF 

EA 


0945397-9901 

AL, DMBNPF , DUMP 8NPF-PX990 



00 54 A 






PXRATE-PXRBNP OVERLAY 



0055 

REF 

EA 


0945325-9901 

AL, DMHL, DUMP HI -LQ»PR0T0-PX990 


0055A 

: 

: 
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PREDEFINED REGISTERS, 125 SYMBOLS WITH 
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4K MEMORY CONFIGURED GIVES APPROXIMATELY 

820 SYMBOLS. 
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f 


0030 


IDT 

" PXRASM •" 

0031 


* TITLE: 

DATB 

0032 



PXRASM DATA BASE 

0033 


* REVISION: 

03/01, •-'74 

0034 



ORIGINAL 

0035 



03/15/76 

0036 



MODIFIED TO RUN WITH PXRMTR 

0037 


* COMPUTER: 

990, 990 flSSEMBLV 

0038 


% ABSTRACT : 

THE DATA BASE CONTAINS THE SVMBOL 

0039 


:+: 

AND FORWARD REFERENCE TABLES, 

0040 



I/O BUFFERS, MESSAGES, CHARACTER 

004:1 



CLASS TABLE, AND THE OPERAND 

0042 


* 

MNEUMONIC AND DIRECTIVE TABLE. 

0043 


* CALLING S 

EQUENCE : 

0044 

0045 



NON CALLABLE 

0046 

0047 


* MftINW REGISTERS 

0048 




0049 

0000 

NWVAL EQIJ 

0 

0050 

8001 

□ETC EQU 

1 

005:1 

0002 

CHAR EQU 

2 

0052 

0003 

RELftBS EQU 


0053 

0004 

PC EQU 

4 

0054 

0005 

ZCK EQU 

5 

0055 

0006 

SHAM EQU 

6 

0056 

0 0 0 7 

NWSVM EQU 

r‘ 

0857 

0008 

SPTR EQU 

8 

0058 

0009 

NULL EQU 

9 

0859 

000 ft 

SFLftGS EQU 

10 

0060 

000ft 

DBRN EQU 

10 

006:1 

000ft 

I OP ARM EQU 

10 

0062 

000C 

TV PE EQU 

12 

0063 

000 D 

SVMNPT EQU 

13 

0064 

000E 

PRNPT EQU 

14 

0065 

0066 

000F 

QVLPT EQU 

15 

0067 


* LPWP REGISTERS 

0069 

0000 

ERRG EQU 

0 

0070 

0001 

BLNKK EQU 

1 

007:1 

0003 

MSGPT EQU 

"? 

007.2 

0004 

LMSGPT EQU 

4 

0073 

0006 

SC NR EQU 

6 

0074 

0007 

BINDPT EQU 

”7 

00 75 

0008 

EROFST EQU 

8 

0076 

00 0B 

NUMERG EQU 

11 

0077 

000C 

PUP EQU 

12 




'RRS’i'l 

MIRA: 

?96 V2L1 : 

17 : 44 : 10 

IT A BASE 


9 4 ft 9 

25-990 x** 

0079 

0080 


:+•' 

* CONVWS REGISTERS 

008:1 




0082 

0000 

BINVfiL EQU 

0 

0883 

0001 

VALSV EQU 

1 

0084 

0002 

MR DC 1 EQU 

2 

0085 

0003 

SGCODE EQU 

3 

0088 

0007 

BHCODE EQU 

r* 

0087 

0008 

BDCODE EQU 

ft 

0888 

0009 

HCNT EQU 

9 

008.9 

000 ft 

PCNT EQU 

10 

0090 

00 0E 

CHOPC EQU 

14 

0091 




0092 


* SC MR 

REGISTER 

0093 




0094 

0000 

QTCLS EQU 

0 

0095 

0001 

CL..STVP EQU 

1 

0096 

0003 

RESET EQU 


0897 

0004 

ERR 4 EQU 

4 

0098 

0005 

SORT EQU 

5 

HI.:;! 9 9 

0007 

NXCPT EQU 

r 

0100 

0008 

I-NCSC EQU 

8 

01 0*1 

0009 

SCNT EQU 

TQC EQU 

9 

0102 

000 ft 

10 

0:103 

800B 

RTN EQU 

11 

0104 

000C 

SAVE EQU 

12 

0105 




0106 


* SVMBOL 

REGISTERS 

0107 




0:108 

0000 

SVMPTR EQU 

0 

0:109 

006:1 

SVMNO EQU 

1 

01:10 

0001 

COUNT EQU 

1 

0:11:1 

0002 

FLAGS EQU 

o 

01:12 

0003 

SVMNM EQU 

7 

0.11.3 

0004 

NS VII EQU 

4 

01 14 

0005 

VALUE EQU 

1^* 

0.11.5 

0006 

NWSCT EQU 
SCNT 2 EQU 

6 

01:1.6 

0007 

0117 

0008 

MSB I T EQU 

ft 

0:1:18 

0009 

GSHOLD EQU 

9 

0! | 9 

000ft 

GSHLD2 EQU 

10 

0:1.20 

000 C 

OUTS EQU 

12 

012:1 




0 ? 7 


* EXWP 

REGISTER: 

0:124 

0000 

RSVftL EQU 

0 

01.25 

0004 

RESLT2 EQU 

4 

01 20 

0005 

OPRES EQU 

5 

8:127 

1:100!;:. 

RELVL EQU 

6 

0128 

000 7 

RLVftL EQU 

r’ 

9129 

0000 

OP EQU 

8 

01 70 

0009 

SP . EQU 

9 

9:131 

000ft 

JVflL EQU 

10 

CH I 

000ft 

FL EQU 

10 


19 F / 7 €• 



FRGE 000.1 
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0188 

0002 

PGCNT 

EQU 

2 

0189 

0003 

TITPT 

EQU 

3 

0190 

01.9.1 

0004 

B I N VP 
* 

EQU 

4 

0192 

0 ”j Q "y 


* 

FXFWP 

REG I STERS 

0194 

0000 

TEMP 

EQU 

0 

0195 

8001 

PTR1 

EQU 

i 

0196 

0002 

SftB'S 

EQU 

2 

0197 

0002 

PTR2 

EQU 

o 

0198 

0003 

FRTVAL 

EQU 

3 

0199 

0004 

RELREG 

EQU 

4 

0200 

0006 

HPTR1 

EQU 

6 

0201 

0007 

HPTR1V 

EQU 


0202 

0008 

PPCPT2 

EQU 

8 

0203 

0009 

FRTEND 

EQIJ 

9 

0204 

000fi 

TEMP2 

EQU 

10 

0285 

0206 

000C 

SVftL 

EQU 

12 

0207 

0208 


* OTWP REG I 

* 

STERS 

0209 

0000 

NOONS 

EQU 

0 

0210 

0001 

CKSUM 

EQU 

1 

0211 

0002 

SVN 

EQU 

2 

0212 

0003 

FlBVL 

EQU 

jj* 

02:13 

0004 

OBJ'PT 

EQU 

4 

0214 

0005 

CDAL.IM 

EQU 

cr 

0215 

0006 

FVL 

EQU 

6 

0216 

©007 

INSPT 

EQU 

1*' 

0217 

0008 

flBDVL 

EQU 

ft 

0218 

0009 

CDLIM 

EQU 

9 

0219 

9220 

000C 

OK FT 
* 

EQU 

12 

0 2 " 1 2 



OTB HP 

REGISTERS 

0223 

0000 

IIMSPT2 

EQU 

0 

0224 

0001 

ABET 

EQU 

1 

02 25 

0002 

AODD 

EQU 

2 

0 2 2 6 

0003 

SBVT 

EQU 


8227’ 

0004 

FBVT 

EQU 

4 

0228 

0005 

ZZERO 

EQU 

5 

0229 

0006 

SHLD 

EQU 

6 

0230 

0007 

0B.JPT2 

EQU 

r* 

023.1 

0008 

BVTFL 

EQU 

8 

0 2 3 .3 

0009 

OTOBPT 

EQU 

9 

0233 

000ft 

BLNNK 

EQU 

10 

0234 

0008 

LOOP 2 

EQU 

11 

c:; 

00 0C 

LOOP 3 

EQU 

12 
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0293 

0000 



RORG 


0294 






0285 



* DATA 


0288 






0287 




AORG 

>20 

0288 



* 



0289 

0000 

41 

ASM 

BYTE 

"ft-* 

0290 

0001 

54 

TERM 

BYTE 


0291 

0002 

3 R 

COLON 

BYTE 

•" : >0D 


0003 

OD 




0292 

0004 

09 

TAB 

BYTE 

>09 

8293 

0005 

0C 

p~p" 

BYTE 

>0C 

0294 




REF 

SYMT 

02' 0-5 

0006 

0000 

SYMTBE 

DATA 

SYMT 

U 9 6 






0297 



* ERROR MES 

SAGES 

0298 



+ 



0299 

0008 

20 

ERMSG 

TEXT 

*+ ERR •- 

0300 

0011 

00 

ERNUM 

BYTE 

0 

0301 

001.2 

20 


TEXT 

•- - STMT -• 

0302 

001A 


ERL..OC 

BSS 

4 

0383 

001E 

0H 

LERADD 

BYTE 

>0A, >OD 


001 F 

0D 




0384 

0020 

4C 

L ERMSG 

TEXT 

‘‘LAST ERR - S 

0305 

810.30 


LERLOC 

BSS 

4 

8306 

0034 

0ft 


BYTE 

>0ft.» >0D 


0035 

0D 




0307 






0308 

|T*j pj Q 



* UNDEFINED 

• SVMBOL ERROR 

03:10 

0036 

0ft 

UNDMSG 

BVTE 

> 0 ft 

0311 

0037 

55 


text 

■UNDER smbl 

03:12 

0041 

0042 

0ft 

0D 


BVTE 

>0ft.« >0D 

03:13 

031.4 

I?} /.'! n;:; 




ERROR 

COUNT MESSAGE 

031.6 

0043 

0ft 

NUHMSG 

BYTE 

> 0 ft 

0317 

0044 


NUMLOC 

BSS 

4 

03:10 

0048 

20 


TEXT 

■ ERRORS-’ 

07:19 

004 F 

0ft 


BVTE 

>0ft, >0D 


0050 

0D 




0320 

0051 

70 

UNLMSG 

TEXT 

- LOG 

032:1 

0056 


UNDLOC 

BSS 

4 

i -1 

005R 

0ft 


BVTE 

>0ft, >0D 


< REMOVED 07/76 > 

END OF MODULE RECORD 
TftB CHftRflCTER 

SYMBOL TftBLE PTR TO NXT ENTRY 


LAST ERR - STMT XXXX 


NUMBER OF ERRORS 


0”.?4 


+ PERIPHERAL DEVICE DEFAULT LOGICAL UNIT NUMBERS 
: + : RORG 

KB L UNO' DATA 0 LOG < KEYBOARD/PR I NTER > 


i : ;1 1 i. 1 ; 


JNO DATA 6 
JNO DATA 7 


LOG < KEYBOARD/PR I NTER > 

LOG < PRINTER) 

CS.1 CLEFT CASSETTE - INPUT.) 


PXRASM 
DRTft BASE 
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„1 f' : 44 : 10 

9 4 8 9 2 5 ~ 9 9 0 1 * •+• 
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PAGE 0008 


07 71 

0777 

0774 

0775 

0776 

0777 

0778 

0779 
0740 
074:1 
0742 


0750 

0751 


0062 0008 


0064 0400 


C2LUNG DATA 8 
* NON I/O MONITOR SUPV CALL BLOCKS 
ENDPRQ DATA >0480 END OF PROGRAM 

DEFINE SUPV CALL XOP 


CS2 < RIGHT CASSETTE - OUTPUT > 




0747 

0866 

00 

OP N COD 

BVTE >80 

0744 

0067 

0D 

EOF COD 

BVTE >8D 

0745 


0900 

RDCQD 

EQU >0908 

0746 


0B00 

WRCOD 

EQU >8800 

0747 





0748 



•+: 


8749 




DATA 




D/OP SVC, 15 

MONITOR SUPV CALL CODES FOR I/O 

OPEN 

END OF FILE 
READ ASCII 
WRITE ASCII 

OBJECT RECORD BUFFER 


07:52 


0000 

WORD! 

EQU 

0 


0757 


0002 

WORD 2 

EQU 

2 


0754 

0068 

0000 

LRBPTR 

DRIB 

0 


8755 

006 A 

0800 

EDF 

DATA 

>800 

EXT DEF MARKER 

0756 

006 C 

0000 

NEWFRF 

DATA 

0 


0757 

00 6 E 

01 

Zi 

BVTE 

1 


0758 

006 F 

10 

ROBB 

BVTE 

>1.0 


0759 

0070 

0008 

EIGHT 

DRTR 

8 


07 60 

0072 

000 A 

TENS 

DRTR 

10 


0761 

0074 

0864 


DRIB 

100 


8762 

0076 

07E8 


DRTR 

1000 


0767 







j/j * !; ■ 

0078 


UBJRLD 

BSS 

74 


8766 

T *;:r 



•T* 

* 1 
.J,. 

r I TLE 



kJ . !:• * 

8768 

80C2 

0C 

•T* 

T I TLE 

BVTE 

>00 


8769 

00C7 


TIT F/ 

BSS 

50 

TITLE CHARACTERS 

0778 

08 F5 

28 

TP AGE 

TEXT 

PAGE 


0771 

08 FB 


PAGNUM 

BSS 

4 

PAGE NUMBER 

0777 

00 FF 

0 A 


BVTE 

>0A 


0 7 7 7 

01 00 

0H0D 

LFCR 

DATA 

>0A0D 

L I NE FEED/CARR I AGE 

07 74 


0100 ’■ 

L F 

EQU 

LFCR 


07 7 5 


01 01. "■ 

CR 

EQU 

■LFCR+1 
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8.377 

8379 



:+• 

* TABLE OVERFLOW MESSAGE 


0379 





0390 

0102 

20 

ABORT TEXT •' ♦ABORT*" 


0381 

01 . 0 ft 

0 A 

BYTE >01=1, > 0 D 



010B 

0D 



0392 

|yj O 

01 0 C 

0000 

ABRTFL DATA 0 

ABORT FLAG 

(“j o 5 



* END 


8386 

010E 

41 

ENDMSG TEXT " ASM/TERM? " 


0387 

Pi o o 

0118 

©D 

BYTE >0D 


0389 

pj Q j“j 



* CASSETTE NOT READY MESSAGE 


0391 

0119 

52 

RDVMSG TEXT •" RDY OBJ-TYPE CR" 


0392 

0128 

8 D 

BYTE >0D 


0393 



EVEN 


0395 



* INSTRUCTION BUFFER 

- 

0396 





0397’ 

012 ft 

2820 

IOBUF DATA >2028 


0398 

012 C 


RCDNUM BSS 4 

RECORD NUMBER 

0399 

0:130 

2020 

DATA >2020 


0400 

0:132 


L.GCNUM BSS 4 

LOCATION OF INSTRUC 

0401 

9:06 

2028 

DATA >2020 


0482 

0138 


INSVAL. BSS 4 

INSTRUCTION VALUE 

0403 

8.1.3C 


RELMRK BSS 1. 

RELOCATAB I L I TV MARK 

0404 

01.3D 

28 

BYTE >20 


0405 

0.1 3 E 


PRBUF febb 6*2 

PRINT BUFFER 

0406“ 

01 70 


INSBUF BSS 62 


0487 

0 4 pj C; 



EVEN 


0409 

Pi ,;t ■•} pi 



•T* 

* ASSORTED EQUATES 

•j.* 


04:1. 1 


0085 

•T* 

OBJST EQU OBJRCD+13 


0412 


000 D 

EOL EQU >D 


0413 


0040 

ATSGN EQU >40 


0414 


002 A 

ASTR EQU >2 A 


04 15 


00 2 F 

OPCNT EQU 47 


04:1. 6 


00:10 

SIXTN EQU >10 

SIXTEEN 

041 7 


4000 

I 0 E R R EQU > 4 0 0 0 

I/O ERROR STATUS 

041.8 

04 i ci 


2000 

EOF EQU >2000 

•X- 

END OF FILE STATUS 

0 4 20 



■T* 

* CHARACTER CLASS 


0421 



* 

CHARACTER VALUE 

0492 



CLASS 


0423 

01.BA 

00 

BYTE 8 .* 0.. 0.1 0 

OTHER 0 


01 BB 

j"-i <■] p r 

00 




01 8D 

t;. r ! rM 
00 



04 24 

01 BE 

07 

BYTE 7 .. 0.« 0.1 8 

+ 1 


01 BE 

00 
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PXRASI-1 


c 


c 


0425 


04 2 1 


0421 


042 


042 


0430 


0431 


M <■ 


04“: 




*-. 14 . 
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' : 44 : 16 

SE 


948925 

i— 99©U.. : + : * : 

0:101. 

0«8 



0:102 

00 

BVTE 

El. El. 3'.. 1 

0103 

00 



0104 

01.3 



0105 

01 



0106 

00 

BYTE 

0,. 2.. 0.. 4 

0.107 

02 



0108 

00 



01:10.9 

04 



01 CP 

06 

BVTE 

6.. 6.. 6.. 6 

01CB 

06 



Oil 00 

06 



01 CD 

06 



01 OE 

06 

BVTE 

6.* 6.. 6j 6 

Oil OF 

06 



01D0 

06 



01 Di 

0 6 



0102 

06 

BVTE 

6.. 6.. El. 0 

0:103 

0*6 



0104 

00 



Oil 05 

00 



0106 

00 

BVTE 

0., 0., 9.. 0 

0:107 

00 



©IDS 

03 



01 D 9 

00 



01 DA 

00 

BVTE 

8.. 5.. 5.* 5 

Oil OB 

85 



01.00 

05 



0:100 

Ol5 



Ei IDE 

05 

BVTE 

5.. 5, 5.. 5 

0:1 OF 

05 



Oil. t 0 

@5 



0:1 El 

05 



©IE 2 

85 

BVTE 

c:j ^ u::* ir:j 

01.E3 

05 



.. 01 E 4 

05 



0 1. E 3 

Ei 5 



01 fv : ; 

05 

BVTE 

i:r ^ in." ^ i:r ^ cnj 

©.I E. 7 

05 



Oil EB 

05 



0 1 E 9 

05 



01 E A 

05 

BVTE 

cr ^ icj cr cr ( 

0.1 EB 

©5 



01 EC 

©5 



01 EO 

©5 



01 EE 

05 

BVTE 

5, 5, 5, 5 

OU.EF 

0 5 



01 FOi 

, Ik i S3 l 

Pi 5 

ii*i cr 



X r X 

0;1F'2 

05 

B V 1 E 

5.. 5.. 5.. 0 

m F3 

05 



01 4 

05 



8 IF 5 

00 




00 

BVTE 

0, 0.. 8.. Ol 

0 1 P 

Pi Pi 
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/ 


RLPHR 


NUN 


QUOTE 


QUOTE 
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F'RGE 0811 






0.1 F 8 

00 





Q1F9 

00 




0479 






0440 




OPERATOR MNEMONIC AND DIRECTIVE TABLE 

044.1 






0442 



OF'TBL 



0442 

01.FR 

4D 


TEXT 

•‘MOV" 

0444 

01FD 

00 


BYTE 

0,. >C0, 1 


01 FE 

C0 





01 FF 

01 




8445 

0200 

4D 


TEXT 

-MOVB- 

0446 

0204 

D001 


DATA 

>D001 

0447 

0206 

4C49 


DATA 

•-LI '.. 0.. >0204 


0288 

0000 





028R 

8204 




0448 

020C 

4.1 


8 VIE 

•'TV.. 0.. 0.. 0.. >R0.. 1 


820D 

00 





028E 

00 





020F' 

00 





021 0 

H0 





021:1 

01 




0449 

021.2 

4142 


DATA 

••'RB"\. 0, >B001 


0214 

0000 





8216 

800:1 




0450 

0218 

4:14.9 


DRTR 

•" A I •" .. 0, >0224 


021 R 

0000 





02 1C 

0224 




0451 

02:1 E 

41 


TEXT 

- AND I •" 

0452 

8222 

0244 


DRTR 

>244 

0452 

0224 

424C 


DRTR 

• BL ".. 0.. >0682 


0226 

0000 





0228 

0682 




©454 

822 R 

42 


TEXT 

•- BLWP •- 

0455 

022E 

0482 


DRTR 

..■■■ 4 

0456 

0220 

42 


TEXT 

-BYTE' 

0457 

0224 

048R 


DRTR 

>40 A 

0458 

0226 

tij. l.'.j. 


TEXT 

• DATA - 

0459 

02 2 R 

050 R 


DRTR 

>50 A 

0460 

82 2 C 

54 


TEXT 

•-TEXT' - 

0 4 6 1 

0240 

1.1. OR 


DRTR 

>110fl 

0462 

0242 

43 


BVTE 

c • 0 .. 0 .. 0 .. > 80 .. 1 


0247 08 
024*4 00 
0245 00 



0>:4b 

80 





024- 7 

0:1 




"j 4 r. 

024 8 

4 242 

DRTR 

CB- 

, 0, >9001 


82 4 R 

0000 




■■M64 

i- J 4 
024 1. 

9 0 :.!.. 

DR T R 

■or 

5 0 ., >0284 


8250 

0000 

. 



;:.,1 1..: •• : 

i ;*1 •■ 

0.2.54 

0 C- 4 
4 2 

TEXT 

•CLF 


?!4 i-'6 

0 2 -9 7 

0 0 

BVTE 

8, 4, 

>C2 


02 58 04 
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c 




0495 

02B4 

4fl 

TEXT 

INC " 

0496 

02B7 

00 

BVTE 

8, >17, 7 


02B8 

1.7 




02B9 

07 



04.97 

02 BA 

4 ft 

TEXT 

" JNE •" 

04.98 

02BD 

00 

BVTE 

0, >16.. 7 


02BE 

16 




02 BF 

07 



9499 

02C0 

4ft 

TEXT 

JNO" 

0500 

0203 

00 

BVTE 

0, >19.. 7 


0204 

19 




0205 

07 



050:1 

0206 

4 ft 

TEXT 

•- JOG - 

0592 

0209 

00 

BVTE 

9, >18.. 7 


020 ft 

18 




0209 

07 



0503 

0200 

4 R 

TEXT 

•- JOB *' 

0504 

02CF 

00 

BVTE 

0, :>1C.. 7 


02 D0 

10 




02D1 

07 



0505 

02D2 

5254 

DAT A 

RT •" , 0, >045B 


02D4 

0000 




02D6 

0458 



0586 

02D8 

52 

TEXT 

*" RTWP *" 

0507 

02DC 

0380 

DR 7 R 

>380 

0588 

02DE 

53 

BVTE 

' S*', 0, 0, 0, >60, 1 


02DF 

00 




02E0 

00 




02E 1 

00 


■ . 


82E2 

60 




02E3 

01 



0589 

02E4 

5342 

DAT ft 

- SB ", 0, >7061 


02E6 

0000 




82 E 8 

700:1 



0518 

82 Em 

44 

TEXT 

'" D I V " 

03:11 

02ED 

00 

BVTE 

0, >30, 6 


02EE 

30 




92EF 

86 



031.2 

02F8 

4D 

TEXT 

" MR V •" 

:. ’1. ■ 

02F7 

0 4- 

00 

BVTE 

0, >38, 6 


02F5 

06 



j_7j : , ;) 

82F6 

53 

TEXT 

•"SLR-" 

4—j 5 

02F9 

00 

BVTE 

0, >fl, 9 


02 6 ft 

0R 




02 FB 

09 



s '-»5;16 

|Ti yCY' 


TEXT 

" SRR " 


82FF 

©0 

BVTE 

0, 8, 9 


0 380 

08 




030:1. 

09 



j ' 1 1 6 

04.02 

52 

TEXT 

' SRC •" 

8* ; • • 

83 0 4 

00 

‘ BVTE 

0, >B, 9 


0306 

0B 




4 ":.0 

89 




5 •• 08 


TEXT 

" SRL •" 
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:rrsm 


M I RR998 

V2L1 17 

' : 44 : 10 

ITA BA: 

5E 


948925 

i~~990i± : + :: + : 

052:1 

0308 

00 

BVTE 

Of. 9.. 9 


030C 

89 




03 0D 

09 



0522 

030E 

53 

TEXT 

•' SWPB - 

0523 

0312 

060 2 

DATA 

>602 

0524 

0314 

53 

TEXT 

•-STCR- 

0525 

03:18 

34016 

DATA 

>3406 

0526 

031.fi 

40 

TEXT 

•’ LDCR 

0527 

03 IE 

3886 

DOTO 

>3006 

9528 

©320 

53 

TEXT 

*” SBO ■*’ 

0529 

0323 

00 

BVTE 

0, >±D.. 3 


0324 

ID 




0325 

03 



0538 

0326 

53 

TEXT 

“STST 

053:1 

03 2 a 

©2 C5 

DATA 

>205 

0532 

0320 

ktj 

TEXT 

•" STWP 

053 3 

0330 

8205 

DATA 

>205 

M 5 . < *••{• 

0332 

54 

TEXT 

"TITL" 

0535 

0336 

1.20R 

DATA 

>120 A 

©536 

0338 

58 

TEXT 

-XOP-' 

0537 

033B 

00 

BVTE 

0, >20.. 6 


0330 

20 




033 D 

06 



0538 

03 3 E 

!“‘i S~.‘ 

TEXT 

•' XGR 

0539 

034:1 

00 

BVTE 

8, >28.. 6 


0342 

28 




8343 

06 



0546 

0344 

i:-“ 

TEXT 


054:1.. 

8347 

00 

BVTE 

0.. >40/ 1 


0348 

40 




0349 

01. 



hd 4,3 

034R 

ur 

TEXT 

'■ SZCB 


03 4 E 

5081 

DATA 

>5001 

0544 

0350 

5442 

DATA 

- TB- / 0.. 


0352 

0000 




0354 

IF 05: 



0545 

8356 

53 

TEXT 

•" SOC •" 

0546 

0359 

00 

BVTE 

0/ >E0/ 1 


03 5R 

E8 




002 5 B 

8:1 



iyt ! ■“:* 

0350 

53 

TEXT 

SOCB •" 

t.:;j i c, 

0360 

F001 

DAT A 

>F001 

© 549 

0 5 6 ;2 

53 

TEXT 

•" SB2 •" 

© 5 0 

0i365 

00 

BVTE 

0,. >1E,. 3 


8366 

IE 




036 ‘7 

02 




Of/ 68 

5 j-. 

TEXT 

-SETO- 

0552 

00260-' 

0782 

DATA 

>702 

0553 

036E' 


TEXT 

■ RORG ■' 

h 5 5 4 

03. 7 2 

1000 

DATA 

>100A 

©555 

03 7 4 


TEXT 

•" RSET •” 

*3 5 5 6 

OG ; ;:, 8 

0360 

DATA 

>360 

, u. ;:::j »::r ;~ 

02: 70 

4F 

TEXT 

• OR I •- 

0559 


00) 

BVTE 

0.. 2.. >64 


>1F03 


c 




'RASH 


MIR R9 

30 V2L1 17 

: 44 : 16 

ITR Bft 



948922 

— 990i* :: 

0559 

037F 

0380 

6 4 
50 

TEXT 

•••PAGE-’ 

0560 

01384 

0E0R 

DRT R 

>E0A 

0561 

0386 

4E 

TEXT 

NEG ■" 

0562 

0389 

00 

BVTE 

0., 5.* 2 


038 A 

05 




03 8B 

82 



0563 

0380 

4E 

TEXT 

-NOP-' 

0564 

038F 

00 

BVTE 

0 

0565 

0390 

±000 

ERFX DATA 

>1000 

0566 

0392 

40 

TEXT 

- LWPI -' 

0567 

0396 

02E8 

DATA 

>2E8 

0568 

0398 

40 

TEXT 

■'Ll MI" 

0569 

0390 

0308 

DATA 

>308 

8570 

039E 

40 

TEXT 

“LIST x 

0571 

03 R 2 

8D0A 

DATA 

>D0A 

0572 

02 A 4 

4.1 

TEXT 

RBS 

0573 

05 R 7 

00 

BVTE 

0.< .« .7*4 


03 R 8 

07 




03 R 9 

42 



0574 

03 RR 

41 

TEXT 

“* RORG ' 

i*:;i 5 5 

03AE 

010A 

DfiTR 

>10 A 

y 5 7 6 

03B0 

42 

BVTE 

/ B / .- 0.. 


03B1 

00 




0.3 B 2 

00 




03B3 

00 




i *l B4 

04 




03B5 

42 



0 5 7 

0506 

42 

TEXT 

-*BES“ 

05 7 8 

03 B9 

00 

BVTE 

8, 2, >R 


03BR 

02 




05 BB 

0R 



p j K:: ; *7* Cl 

03 BC 

42 

TEXT 

*■’ BSS “* 

0588 

0.3BF 

j7i j’“; jy| 

00 

j“ : { 

BVTE 

0, 3, >fl 


03 Cl 

0fi 



058.1. 

0303: 

43 

TEXT 

OK OF” •“ 

0582 

0306 

0300 

DATA 

>308 

0583 

0308 

43 

TEXT 

“ OK ON 


0300 

03R0 

DAT A 

>3R0 

0585 

03CE 

43 

TEXT 

ooo •' 

0586 

03D1 

R3D2 

00 * 
20 

BVTE 

0., >20.* 1 

01587 

03D4- 

06 

43 

TEXT 

czc 

0 586 

03 D 7 

00 

BVTE 

0, >24, 1 


0 [ •* *5 
6 3D 9 

.. j 

06 



8589 

03 DR 

44 

TEXT 

DORG 

0 5 9 0 . 

03DE 

070R 

DATA 

>700 

6 ! ;v:::< j 

03E0 

55 

TEXT 

“UNL5 

■■ ■ 

0“E4 

00 

a. 

BVTE 

o, > 1 . 3 , : 

eye •• 

0. 

6 H 
6 H 

BVTE 

•" X “' , 0, 1 
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NOP AND ERROR INSTRUCTION FILL 


544 ft 619 


MIRR990 'v 

'2L1 17 

' : 44 : 10 

A T ft PA? 

4 


94-8925 

i-9901** 


03 E 7 

00 




03 E 8 

00 




03E9 

00 




03 Eft 

04 




03EB 

O c.'. 



85.94 

03EC 

44 

TEXf 

•" DXOP 

0595 

03F0 

080ft 

DATA 

>8 0ft 

0596 

03F2 

45 

TEXT 

-END- 

8597 

03F5 

00 

BVTE 

0, 9, >A 


03 F 6 

09 




03F7 

0ft 



0598 

03F8 

45 

TEXT 

-EVEN- - 

8599 

03FC 

0B0R 

DATA 

>BQft 

0600 

03FE 

49 

TEXT 

•- IDLE-’ 

060:1 

0402 

0340 

DATA 

>340 

0682 

0404 

49 

TEXT 

•- IDT'" 

0605 

0407 

00 

BYTE 

0, >c.. >ft 


0488 

0C 




0409 

0ft 



0684 

048FI 

49 

TEXT 

I N V 

0605 

04 8D 

00 

BYTE 

0.. 5 j >42 


04 8E 

05 




84 0F 

4 2 



0686 

84:10 

4C 

TEXT 

- LREX 

0607 

04:14 

03E0 

DATA 

>3E0 

0688 

04:1 6 

4C 

TEXT 

*' LDD •' 

0689 

04:1.9 

00 

BYTE 

0 

0616! 

041ft 

07C2 

DATA 

>07C2 

06.11 

04 1C 

4C 

TEXT 

LDS *'* 

06 1. 2 

04 IF 

00 

BYTE 

0 

060 

0420 

8782 

DATA 

>0782 

061.4 


OFTE 

•ND 


61671 5 

0422 

4C 

TEXT 

LMF **’ 

06:16 

0425 

00 

BYTE 

0 

0617 

0426 

0329 

DATA 

>0329 
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IN DR 

I V.ER 



94892!: 

5-9901 



0628 








062:1 



* NOR 

CSPflCF 

AREA FOR HA IN 

DRIVER 


0622 








0620 



MflINW 





i ; :;l 6 2 4 

0428 

0000 

NNVL 

D FIT ft 

0 

R0 

NWVAL 

0625 

042ft 

116E - " 


DATA 

GETCHR 

R1 

GETC 

0626 

0420 

0000 


DATA 

0 

R2 

CHAR 

0627 

042E 

0000 


DATA 

0 

R3 

RELABS 

0628 

0400 

0000 

F'CVL 

DftTft 

0 

R4 

PC 

01629 

0402 

0000 


DftTft 

0 

R5 

ZCK 

0600 

0404 

0000 


DftTft 

0 

R6 

SNAM 

0601 

0406 

0000 

NSMBL 

DftTft 

0 

R7 

NWSVM 

01602 

0408 

0000 


DftTft 

0 

R8 

SPTR 

0600 

04 0fl 

0000 


DftTft 

0 

R9 

NULL & 

0604 

040C 

0000 


DftTft 

0 

RIO 

SFLAGS, 

0605 

040E 

0000 


DftTft 

0 

Rll 


0606 

0440 

0000 


DftTft 

0 

R12 

TVPE 

0607 

0442 

0D38 


Dft fft 

SVMB0L+5VMNM+S : 

VMHM R± 

3 SVMNPT 

0608 

0444 

186ft 


DftTft 

PRNTLN 

R14 

PRNF'T 

0609 

0446 

0D6E ' 


DftTft 

GETSVL 

R15 

GVLF'T 


I/O RTN STATUS 
DBRN, I OP ARM 
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MR IN DRIVER 948925-9901+* " 


0641 



* TITLE: 

STRRT/PXRASM 

8642 




PXRASM MAIN DRIVER 

0641 



* REVISION: 

03/01/74 

06 4 4 




ORIGINAL 

0645 




03/15/76 

8646 




MODIFIED TO RUN WITH PXRMTR 

8647 



+ COMPUTER: 

990, ASSEMBLV 

0648 



+ ABSTRACT : 

START BRANCHES TO INITIALIZATION ROUTINE 

8649 




FOR HEADING, MEMORY SIZE, AND PREDEFINED 

0650 



:+: 

REGISTERS FIRST TIME PXRASM EXECUTED AFTER 

0651 




LOAD. SUBSEQUENT EXECUTIONS BRANCH TO PXRASI 

0652 



:+: 

PXRASM CONTAINS THE CODE FOR INITIALIZATION 

0653 




OF FLAGS AND BUFFERS, AND THE MAIN DRIVER 

0654 



:+: 

WHICH IS RESPONSIBLE FOR THE GENERAL 

0655 



+ 

SCAN OF AN INPUT LINE <! PROCESSING OF 

0656 




LABELS AND EXAMINATION OF OPERATOR 

0657 



•+: 

FIEL.D>, AND THE BASIC CALLS TO I DENT I- 

0658 




FI CAT I ON AND PROCESSING ROUTINES. 

0659 



CALLING SEQUENCE: 

8660 




NON-CALLABLE 

0661 



* ADDITIONAL 

NOTES : 

0562 




WORKSPACE = Mfi I NW< SHARED WITH D I PR > 

0663 




SHARES MAINW AS A WORKSPACE. PXRASM PER FORM! 

0564 




ALL NECESSARY INITIALIZATION TO KEEP PXRASM 

0665 




REENTRANT. 

0666 



* 

ROUT I NES CALLED : PR I NT, PR I NTN, KEY I N, OPEN, 

0667 




SVMCLR, RDRCD, LKCHAR, PRNTL.N, SCAN, SRCSYM, 

0668 




GETSCT, GETSVL, GETCHR, ER2, OFSRCH, AEVEN, 

0669 



* 

OPTVPE, XOPG, ER6, AEVEN 

0670 



DEE 

ASHCSR 

0671 



ASHCSR 


0672 



START 


0673 

0448 

82E0 

LWP I 

MAINW INIT WORKSPACE POINTER 


0448 

0428 •" 



0 6 / 4 

0440 

06H0 

BL 

©INIT INITIALIZE PROGRAM 


044E 

1R6C- - 



0675 



PXRASM 


0676 

045© 

Pi - I rr “;« 

02E0 

LWP I 

MAINW 

0677' 

0454 

yj u i t-.o 

0300 

LI HI 

2 INIT STATUS 


0456 

0002 



0678 

0458 

020R 

L I 

I OP ARM, LFCR 


04 5 fl 

0:100-' 



05 79 

0450 

0420 

BLWP 

©PRINT 


84 5 E 

19CE " 



0680 



ENDACT 


068:1 

04601 

028R 

L I 

IOPARM, ENDMSG PRINT END MESSAGE 


0462 

01.0E 



8682 

8464 

0420 

BLWP 

©PR I NTN 


0 4 6 6 

1. 9D6 • 



0697: 

0468 

H <4 8 H 

020 A 

mi pp ■ 

L I 

IOPARM, I MSB UP" INPUT RESPONSE 

0684 

04 6C 

0428 

BLWP 

©KEVIN 


84 6E 

198R ' 
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MIR0990 V2L.1 1.7:44:10 197/76 

PAGE 0019 

MR IN DR 

I VER 

4 


948925-9901 •*+••+* 


i ; ;1 !~« !•;;! 5 

8470 

9828 

OB 0INSBUF, ©TERM 

IS IT TERMINATE? 


8472 

017C •- 




0474 

0001 •'* 



0686 

8476 

1682 

JNE ENDA 

NO 

0687 

m 4 i*’ y 

2FE0 

SVC 0ENDPRG 

END OF PROGRAM SIJPV CALL 


8471=1 

0864 



8688 



ENDfi 


0689 

8470 

9820 

OB 0 1 NSBUF, 0ASM 

IS IT ASSEMBLE? 


84 7 E 

01.70" 




0488 

0000 **’ 



0690 

0482 

16EE 

JNE ENDfiCT 


069:1 

0484 

C2R0 

MOV 0C1LUNO, lOPflRH 

OPEN CASSETTE 1 


8486 

0068 



0692 

0488 

0420 

BL..WP ©OPEN 



0480 

1.964 



0697 

04 8 C 

C2R0 

MOV 0C2LUNO, IOPfiRM 

OPEN CASSETTE 2 


048E 

0062 •" 



8694 

0490 

0420 

8LWP ©OPEN 



0492 

1964 •- 



0695 



+: 


0696 



* INITIAL I ZflTI ON OF FLAGS. 

' BUFFERS, AND 

0697 



* BUFFER POINTERS 


0698 





0699 



BRT CH 


070© 

0494 

05R0 

INC ©LIST 

SET LIST FLAG 


0496 

1856*- 



870:1 

0498 

05 AO 

I NO ©0 T WP+NCQNS+NCONS 

SET NON— CQNSECUT I VE FLAG 


04 9R 

16E6-' 



0702 

04 9 C 

lyl Q P* 

04E0 

riPd 

CLP ©NUMERR 

CL ERR ERROR COUNT 

0707 

nJ ’t . 7 ? tZ. 

0400 

04E0 

CLR ©LNCNT 

CLEAR LINE COUNT 


0402 

1590 - 



0704 

0404 

04E0 

CLR ©NPAGE 

CLEAR PAGE NUMBER 


0406 

1.592 *" 



0705 

0408 

84E0 

CLR 0DORGFL 

CLEAR DORG ENCOUNTERED F 


0400 

lies •** 



0706 

0400 

04E0 

CLR ©A8RTFL 

CLEAR ABORT FLAG 


040E 

01 0C 



0787 

04 B0 

i7-| DO 

C820 

MOV ©LFCR, ©LERRDD 

TRUNCATE LAST ERR MSG 


kO M* rr* 

0484 

»;J rj 

001E - 



0708. 

0486 

0208 

LI SPTR, OBJRCD 

I N I T I AL I ZE OBJECT BUFFER 


04 By 

0078 - 



0 7 0 9 

04 8 R 

C020 

MOV © 0 T B M P ■+• ,7 Z E R 0 •+• 2 Z E R ( 

1. NWVRL 


04BC 

17D2*“ 



07:10 

0 4 E* 1 E 

CE00 

MOV NWVRL, *SPTR+ 

ZERO PROGRAM LENGTH 

0711 

04 C0 

CE90 

MOV N 14V Hi. , *SPTR+ 


071 2 

04C2 

DE80 

MOVB NWVRL.., *SPTR+ 


0717 



CLRBF 


8714 

04C4 

DE20 

MOVB ©BLANK, *SPTR+ 

CLEAN OUT OBJECT BUFFER 


04C6 

1. 7 DC 



07:15 

04 C 8 

0288 

Cl SPTR, TPRQE 



©4 CR 

@0 F 5 *- 



0716 

04 CC 

11 FB 

•JLT CL.RBF 


0 7 j . 7 

04 CE 

D820 

MOVB ©FF, ©TITLE 

STORE FORM FEED 


PZRASM 
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MR IN DRIVER 

4 



94892 

5-9901** 



04 D0 

0005 






04D2 

0002 •" 





0718 

04D4 

0820 


MOV 

0OBJSTP, 0OTWP+OB JPT +0B JPT 


04D6 

0BD6 •'* 






94D8 

16EE-' 





071.9 

04DR 

04E.0 


CLR 

0OTBWP+BYTFL+BYTFL 

CLEAR BYTE FLAG 


04 DC 

17D8 " 





0728 

04DE 

04E0 


OLE 

0NEUFRF 

CLEAR NEW FWD REF FLAG 


04E0 

0060 





0721 

04E2 

0208 


LI 

SF'TR, FRT-1 

INITIALIZE POINTER TO FRT 


04E4 

009F 





0722 

04E6 

0888 


MOV 

SPTR, 0FRWP+MLBPT+MLBPT 


04 E 8 

11B6 " 





0727 

04ER 

0820 


MOV 

0SYMTBE, 0ENDST 

MARK END OF SYMBOL TABLE 


04EC 

0006 •'* 






04EE 

0828 ' 





0724 

04 F0 

0404 


CLR 

PC 

INITIALIZE PROGRAM COUNTER At 

0725 

04F2 

0804 


MOV 

PC, ©RELPC 



04F4 

0C1.8 





0726 

04F6 

0202 


LI 

RFLRBS, 1 

RELOCATAB I L I TY VALUE 


04 F 8 

000:1 




' 

0727 

04FR 

04 E0 


CLR 

0RODCNT 

CLEAR RECORD COUNT 


04 FC 

1.862 





0728 

04FE 

0208 


LI 

SPTR, FRT 

CLEAR SYMBOL TABLE 


0500 

00ft 0 





0729 



CLRS 




8720 

0502 

04F8 


CLR 

*5PTR+ 


i”'f 0 -i 

0504 

8808 


0 

SPTR, 0ENDST 



0506 

0078 •’* 





0722 

0508 

1:1 FC 


JLT 

CLRS 


0722 



ft RE ft C 

t 



0724 



* 




0725 



■r 

READ 

AND PROCESS ft RE. CO ft 

•D 

111 

0727 

05 0R 

02 E0 


LMPI 

MR I MW 



0500 

0428 “ 





0728 

058E 

0160 


MOV 

0NEWFRF, ZCK 

HAVE ANY FWD REFS BEEN RES-'D 


0518 

8060 





0729 

0512 

1205 


JEQ 

RR2 

NO 

0740 

05:14 

0:1.60 


MOV 

eOTBWP+BVTFL+BVTFL 

, ZCK CONVENIENT TO RESOLVE? 


0516 

1.7D8-’ 





0741 

051.8 

1602 


JNE 

RR2 

NO 

0742 

851ft 

0420 


BLWF 

eSVMOLR 

CLEAR SYMBOL FOR RESOLVE 


051 0 

0DF6 -* 





8747 



RR2 




8744 

051.17 

05ft 0 


INC 

0FSTPT 

SET F I RST-PR I NT-OF-L I NE FLAG 


8520 

1858 - 





0745 

0522 

04E8 


CLR 

0S CWP+ I NCSO+ I NO SC 

CLEAR I NS I DE-SIR I NG FLAG 


0524 

00:10 •- 





0746 

8526 

04E0 


CLR 

0L.RBSN 

CLEAR LABEL SEEN FLAG 


0528 

15 ft 6 ' 





0747 

052ft 

0804 


MOV 

PC, 0PPO 

INITIALIZE PRESENT PC 


0520 

11.BR-* 


• 



0748 

852 E 

0820 


MOV 

0 L N R E" G + R D B F + R D B F , 0SOWP+SCPT +SCP i 


0520 

134F *'* 
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0016 


0749 

0534 

0420 


BLWP 

©RDRCD 

READ A RECORD 


8538 

.1.90 A 





0758 

0538 

©420 


BLWP 

©LKCHAR 

LOOK AT CHARACTER 


05 3 ft 

1:150 •- 





0751 

0530 

0282 


01 

CHAR, 

IS CHARACTER AN ASTERISK 


053E 

002R 





0752 

0540 

1604 


JNE 

APROC 

NO, PROCESS LINE 

0753 



APRLN 




0754 



APERLN 




0755 

0542 

02E0 


LWPI 

MAI WW 

REESTABLISH WORKSPACE PTR 


0544 

8428 **’ 





0756 

0548 

041E 


BLWP 

+PRNPT 

PRINT LINE 

0757 

0548 

10E0 


JMP 

BREAD 

READ NEXT LINE 

0758 



APROC 




0759 







0788 




PROOF? 

"S LABEL FIELD 


0761. 







8762 

054 ft 

0282 


or 

CHAR, >20 

IS CHARACTER A BLANK 


0540 

01020 





0783 

054E 

133 A 


.JEQ 

PROOF* 

YES, NO LABEL 

0784 

105501 

01420 


BLWP 

©SCAN 

NO, GET LABEL 


0552 

0020 - 





0785 

0554 

1000 


NOP 


RETURN FROM SCAN 

0788 

0558 

0420 


BLWP 

0SRCSVM 

SEARCH SVMBOL TABLE 


0558 

0D94 •" 





0787 

055R 

102:1 


JMP 

ANTFND 

SYMBOL NOT IN TABLE - JUMP 

0 7 8 8 

0550 

C2R0 


MOV 

eSVMBOL+FLRGS+FL 

.AGS, SFL.AGS IN TABLE 


855E 

0D36-* 





0 r‘t“:>9 

0560 

828 R 


01 

SFLRGS, 8 

IS SVMBOL RLRERDV DEFINED 


0582 

0000 





8770 

0564 

1503 


JOT 

RNODEF 

NO 

077:1 



flMDFER 




0772 

0566 

0420 


BLWP 

0ER5 

MULT I PL. V DEF I NED SVMBOL 


8568 

8B5R-* 





0773 

056R 

1020 


JMP 

PROOF 

PROCESS OPERTOR 

8774 



RNODEF 




0775 

0560 

028R 


01 

SFLRGS, 1:1 

IS SVMBOL EXTERNAL REF 


056E 

01008 





0776 

0578 

15FR 


JOT 

AMDFER 

VES, RMB I GUOUS DEF 

0777 

0572 

0200 


L I 

NWVRL, 4 

NO, MARK RS DEF I NED 


0574 

0004 





0778 

0576 

028 R 


01 

SFLRGS, 18 

I S SVMBOL PRE V I OUSLV REF •" D 


8578 

00 0R 





0779 

057 R 

1184 


JLT 

HREF 

NO, CONTINUE 

0780 

0570 

0228 


fil 

NWVRL, —4 

VES, MRRK RS RECENTLV DEF.il 


057E 

FFFC 





078:1 

8580 

85R0 


INC 

0NFWFRF 

SET NEW END REF FLAG 


0582 

00160 





0782 



REE F 




0783 

0584 

028R 


01 

SFLRGS, 11 

IS SVMBOL EXT DEF *" D 


0586 

00 0B 





8784 

0588 

160:1 


JNE 

RDEF 

VES 

8785 

058R 

058Oi 


INC 

NWVRL 

NO, RDD 1 TO FLAG VRLUE 

0786 



RDEF 





v^' 




PXRflSM 


MIRA9 

90 V2L.1. 17 

: 44 : 10 1 97/76 

PAGE 01022 

MR IN DI 

LIVER 


9 48925-9981** 


0787 

058C 

0003 

MOV 

EE LABS, RELRBS 

IS SYMBOL CODE RELOCATABLE 

0788 

058E 

1.60.1 

JNE 

REEL 

YES 

0789 

0590 

0500 

INCT 

NWVAL 

NO, ADD TWO TO FLAG VALUE 

0790 



AREL 



07.91. 

0592 

0A30 

SLR 

NWVRL, 3 

POSITION FLAGS 

0792 

8594 

0420 

BLWP 

0QETSCT 

GET SYMBOL COUNT 


0596 

0D5C •" 




8792 

0598 

E020 

SCO 

@SYMBOL+COUNT+COUNT, NWVRL i 


059A 

0D34 " 




0794 

059C 

1008 

JMP 

RNF2 

PLACE SYMBOL INTO TABLE 

0795 



ANTFND 



0 798 

059E 

0028 

MOV 

©SVMBOL+NWSCT+NWSCT, NWVAL 1 


85A0 

0D3E 




8797 

05 A 2 

0228 

AI 

NWVRL., — >30 

MARK AS DEF-D RELOCATABLE 


05 A 4 

FFD0 




0798 

05A6 

0003 

MOV 

RELRBS, RELRBS 

IS CODE PRESENTLY RELOCATABLE 

0799 

05A8 

1602 

JNE 

RNF2 

VES 

0800 

05 A A 

0220 

AI 

NWVAL, >10 

NO, MARK AS ABSOLUTE 


05 AC 

0010 




0801 

10802 

05 A E 

0228 

ANF2 

MOV 

©SVMBOL+SVMPTR+S 

YMPTR, SPTR 


05B0 

0D32 " 




0883 

05B2 

06CS 

SWPB 

NWVAL 

PLACE NEW FLAG IN ENTRY 

0804 

0594 

D600 

MOVE 

NWVAL, *SPTR 


0805 

05B6 

04 IF 

BLWP 

*GVLPT 

POINT TO SYMBOL VALUE 

0806 

0588 

01 9 D 

MOV 

*SVMNPT, SNAM 


0807 

05BA 

0584 

MOV 

PC, *SNAM 

LET PC BE PRESENT VALUE 

0808 

05BC 

0808 

MOV 

SPTR, 0LABPTR 

SAVE LABEL EN FRV 


05 BE 

00168 *’* 




0809 

05CEi 

05 A 0 

INC 

0LRBSN 

bR i LABEL bEEN FLAG 


0502 

15A6 - 





0810 

08:11 


PROOF 


E N D 0 F L A 8 E L P R 0 C E 5 5 1 N Q 


08:14 * 


PROCESS OPERATOR F I ELD 


08:1.5 

0504 

04:11 

BLWP *GETC 

08:16 

0506 

0282 

Cl OH AFT* >20 


0.508 

0029 


08:1 7 

05CA 

1303 

JEQ ANXCHR 

08:18 

0500 

0420 

BLWP ©ER2 


05CE 

0B4E-- 


081.9 

85 D8 

10B8 

JMP APERLN 

0820 



ANXCHR 

0821, 

05D2 

0420 

BLWP OLKCHAR 


05 D4 

1:150 •- 


0822 

05D6 

0282 

01 CHAR:, EOL 


05D8 

000D 


082 3 

05 DA 

:t 3B3 

JEQ APRLN 

8824 

05DC 

0428 

BLWP ©SCAN 


05DE 

0020 ■' 


0825 

05E8 

102 A 

JMP OPERX 

0 8 8 0 

05E2 

0828 

MOV ©SCWP+RE: 


05E4 
05 E6 

00:12 •' 
1108 ’ 



GET CHARACTER 
IS SVMBOL A BLANK 

VES, GET NEXT CHARACTER 
!:r« S*‘ N I AX ERROR 

PRINT ERROR LINE 

LUUk hi I U HA RAC i ER 

END OF LINE? 

VES, LABEL-ONLY CARD OR BLANK 
N 0 .• G E 1 U P E R A T 0 R 

NON— SVMBOL IN OPERATOR FLD 
LT+RFSLT, 0 F R W P + 0 P W R D •+• 0 F* W R D 


O 


IRflSM 


MIRA9S 

•0 V2L 

.1 17:44:1.0 1 

.97/76 PAGE 0023 

IIM DR 

OVER 

« 



9 4 8 9 2 5 ~ 9 9 0 1. : + : 


0827 

05E8 

Cl 60 


MOV ©SVMBL+4, ZC 

:K IS SVMBOL <= 4 CHARACTERS 

0828 

r::. rl 

05 EC 

16:1. A 


JNE NOOPF 

NO - SVMBOL NOT IN OP TABLE 

0829 

05EE 

0420 


BLWP 00 PERCH 

SEARCH FOR OPERATOR 


05F0 

0EEft 




0830 

05F2 

1017 


•IMP NOOPF 

OPERATOR NOT IN TABLE 

0831 

05F4 

0411 


BLWP *GETC 

GET CHARACTER 

8832 

85F6 

0282 


Cl CHRP, >20 

IS THE CHARACTER A BLANK 


05F8 

0020 




0833 

05Ffl 

1 .S 0 »’’ 


JEQ CLROP 

VES, CONTINUE 

0834 



svnrf:- 



0835 

05FC 

05FE 

0420 
0B4E ’ 


BLWP ®ER2 

SVNTAX ERROR 

0836 



NO PST 



jyj C* **?• “p 

0600 

08,20 


MOV 0EPFX, eFRWP+OPCODE+OPCODE SET NOP 


0802 

'03.90 
11C 2 
04E0 




0838 

0 6 1:4 4 
0606 


CLR: ©FRWP+BRANCH+BRANCH SET ZERO BRANCH 


0608 

lies 




8839 



CLROP 



0840 

060R 

8820 


C 0 F R W P •+• B R ft N C 

:H+8RANCR, ©TENS D I RECT I VE? 


060C 

1:106 -■ 





060 E 

0072 -* 




0841. 

061.0 

1304 


•JEQ NORDJ 

VES.. DO NOT FIND WORD BNDRV 

0842 

0612 

061.4 

06 ft 0 
081.0“ 


BL 0ft EVEN 

GET WORD BOUNDARV 

0843 

061.6 

C804 


MOV PC, 0PRC 

UPDATE PRESENT PC 


0618 

11.8ft 




0844 



NOftD-J 



0845 

061ft 
06 1C 

0420 


BLWP 0OPTVPF 

P R 0 C E S S 0 P F R ft T 0 R 

08 ’4 6 
0847 

061 E 
0620 

0460 
0.50ft “ 

NXCRD 

B ©BREAD 

REftD ft RECORD 

0848 



NOOPF 



pi y 4 9 

0622 

0420 


BLWP 0SRCSVM 

SEARCH SVMBOL TABLE 


0624 

0D94 




8850 

0626 

1007 


JMP OPERX 

NOT IN TABLE / ERROR 

0851 

0628 

8820 


C ©SVMBOL+FLAGS+FLAGS, ©EIGHT IS THIS R DXOP 


062ft 

0D36 ■“ 





062C 

0070 “ 




0852 

062E 

1603 


JNE OPERX 

NO - ERROR 

0853 

0638 

0420 


BLWP ©XOPG 

VES, PROCESS DEFINED OP 


8632 

149ft *“ 




0854 

0634 

10F4 


JMP NXCRD 

REftD NEXT CARD 

0855 

0636 

0429 

OPERK 

BLWP C-ER6 

UNPEGOGN I ZABLE OPERATOR 


0638 

085 E •" 




0856 

063ft 

10E2 


JMP NOP ST 

SET UP NOP 


PXRASM 


MIRA990 

V2L1 17:44:10 1 97/76 PAGE 0924 

DIRECT I 

VE PROC 

4 

:ESSOR 

5 

94892? 

t-9901** 

8859 




TITLE: 

DIPR 

8868 



:+: 


DIRECTIVE PROCESSORS 

0861 




REVISION: 

03/O1/74 

8862 





ORIGINAL 

8863 





03/15/76 

8864 





MODIFIED TO RUN WITH PXRMTR 

8865 




COMPUTER : 

990. ASSEMBLY 

8866 



-•+= 

ABSTRACT : 


©867 



* 


ALL DIRECTIVE ENTRIES IN THE OPERATOR MNEMONIC 

8868 





AND DIRECTIVE TABLE CONTAIN THE BRANCH 10 AND 

0869 





AN OPCODE ENTRY EQUIVALENT TO THEIR DIRECTIVE 

8878 



:+: 


NUMBERS. THIS IS USED TO BRANCH TO THE PROPER 

0871 



:+: 


DIRECTIVE PROCESSOR. RETURN FROM ANY PROCESSOR 

©872 





IS EITHER TO •"ARE AD'" OR AF'RLN IN DRIV99 TO 

8873 





READ A NEW RECORD OR PRINT A LINE RESPECTIVELY 

0874 



:+: 

CALLING SEQUENCE: 

8875 



:+: 


FROM OPTYPE ONLY. THE CALL IS PART OF THE 

8876 



:+: 


OPERATOR CLASS BRANCH TABLE FOR WHICH THE 

8877 





TENTH ENTRY IS DATA DIPR 

8878 



* 

ADDITIONAL NOTES: 

8879 





WORKSPACE = MAINW X SHARED WITH START/P/RASM) 

8888 





ROUTINES CALLED: WDE, GETSVL. PCPRN. EXEVL. 

0881 





TRUNK. B INHEX.. OIJTBYT.. PRNTLN.. NXTFLD.. AEVEN.. EXPR. 

8882 





OUTOBJ.. SCAN.. SRCSVM.. ER5,. ER2.. GETCHR.. SVMCLR,. 

8883 





CLROB.J.. OUTSYM.. REFDEF.- LKCHAR,. WRITE.. BINDEC.. 

8884 





PRINT.. GETSCT.. ER4.. PGHDR.. 0UTNW2,. EXPR 

8885 



DIPR 


8886 

863C 

02E0 


LHP I 

MAINW 


06 3 E 

0428 




8887 






8888 




BRANCH TO APPROPRIATE PROCESSOR 

8889 






8898 

8648 

D2R8 


HOVB 

0FRWP+OPCODE+OPCODE.. DBRN GET BRANCH VALUE 


8642 

1102-' 




8891 

0644 

097R 


SRL 

DBRN, 7 ftDJUST FOR JUMP 

8892 

8646 

02RR 


MOV 

@ JMPTB8-2 < DBRN > .. DBRN 


8648 

064ft*' 




8893 

064fl 

045ft 


B 

:+:DBRN JUMP TO PROPER PROCESSOR 

0894 



JMPTB8 


8895 

0fo4u 

8672 


DATA 

AAORG 1 AORG 

0896 

864E 

06BR 


DfiTfl 

ABES 2 BES 

0897 

8658 

06 D 4 * 


DRTfi 

BBSS 3 BSS 

8898 

8652 

06E2 


DATA 

ABYTE 4 BYTE 

0899 

0654 

871 ft x 


DATA 

ADATA 5 DATA 

0908 

0656 

8766*’' 


DATA 

DEF 6 DEF 

0981 

0658 

0798 


DATA 

ft DO EG 7 DORG 

0982 

065R 

0706 


DATA 

ADXOP 8 DXOP 

0983 

0650 

0886 


DRTR 

AEND 9 END 

0984 

86 5 E 

©8E0 


DRTR 

AEQU 10 EQU 

8905 

0668 

8930 


DRTR 

EVEN 11 EVEN 

0906 

8662 

8992 


DRT ft 

A IDT 12 IDT 

090 7 

0664 

09RO 


DATA 

fiLIST 13 LIST 

0908 

0666 

0982 ■" 


DATA 

FiPfiGE 14 PAGE 

0989 

8668 

0908 


DRTR 

REF 15 REF 


PXRASM 
DIRECT I 1 

MIEA990 

v'E PROCESSORS 

* 

V2L-1 17:44: 10 

9 48 925-9901* * 

197/76 

PFlGE 0025 

0.910 

066A 09F0" 

DATA ARORG 

16 

RORG 

0911 

066C 0A4C •" 

DATA ATXT 

17 

TEXT 

0912 

066E 0944 •' 

DATA ATITL 

18 

TITL 

09:0 

0670 0 AA8 •" 

DATA AUNL 

19 

UNL 


± 97/76 


PAGE 0026 


PXRASM MIRA990 V2L.1 17:44:10 


DIRECTIVE PROC 

* 

:ESSOR 

5 94092 

5—9981** 


8915 



* 



0916 



* PROCESS 

" BORG " COMMAND 


©917 






0918 



AAGRG 



8919 

0672 

05fl0 

INC 

0OTWP+NCONS+NCONS 

SET NON— CONSECUT I VE FLAG 


0674 

16E6-" 




8920 

01676 

0803 

MOV 

RELABS, RELABS 

IS CODE PRESENTLV RELOCATABLE 

0921 

0678 

1386 

JEQ 

AA0RG2 

NO 

0922 

067R 

0:160 

MOV 

ODORGFL, ZCK 

IS CODE PRESENTLV IN DORG? 


067C 

lies- 




0923 

067E 

1602 

JNE 

AA0RG1 

VES 

8924 

8680 

C804 

MOV 

PC, 0RELPC 

NO, SAVE RELOC VALUE 


0682 

©CIS" 




0925 

8684 

04 C 3 

AA0RG1 CLR 

RELABS 

MARK CODE AS ABSOLUTE 

0926 

8686 

84 E0 

RR0RG2 CLR 

QDORGFL 

RESET DORG FLAG 


0688 

lies-" 




0927 

868R 

06R0 

BL 

C-WDE 

GET WELL DEFINED EXPR 


868C 

0RC0 x 




0928 

063E 

Cl 60 

MOV 

OEXWP+RELVL+RELVL, 

ZCK EXPRESSION RELOCATABLE? 


8698 

0F28 




8929 

0692 

1302 

•JEQ 

RR0RG3 

NO - GOOD 

8930 

01694 

0460 

B 

0SVNTX 

VES, SVNTAX ERROR 


0696 

0798 




0931 



AA0RG3 



0932 

8698 

0128 

MOV 

0EXWP+RESLT+RESLT, PC MARK NEW LOC 


869R 

0F22" 




0933 

869 C 

0168 

MOV 

0LRBSM.. ZCK 

LABEL PRESENT? 


069E 

15R6 *" 




0934 

06R8 

1389 

JEQ 

AA0RG4 

NO 

0935 

06R2 

C1E8 

MOV 

0LABPTR, NWSVM 

VES, POINT TO IT 


86R4 

8868 *” 




8936 

86R6 

0887 

MOV 

NWSVM, 0SVMBOL+SVMPTR+SVMPTR 


06R8 

8D32 




8937 

86RR 

F5E8 

SOOB 

C-ROAB, ♦NWSVM 

MARK AS ABSOLUTE 


06RC 

086F 




8938 

06 RE 

841F 

BLUR 

*GVLPT 

POINT TO SVMBOL VALUE 

0939 

06B0 

C19D 

MOV 

*SVMNPT.« SNRM 

ADJUST SVMBOL VALUE 

0948 


0584 

MOV 

PC, ♦SNAM 


0941 



RR0RG4 



0942 

W6B4 

86 R8 

BL 

0PCPRN 

PLACE PC IN OUTPUT LINE 


06 B6 

1498 




0943 

06 B8 

1013 

IMP 

PPG 2 

PRINT OUTPUT LINE 

0944 






0945 



: + : PRucE: 

5S BES •' COMMAND 


0946 



* 



0947 



ABES 



0948 

86 BR 

05R8 

INC 

0OTWP+NCONS+NCONS 

SET NON-CONSECUTIVE FLAG 


06BC 

16E6 •” 




8949 

86BE 

06R8 

BL 

QEXEVL 

EVALUATE EXPRESS I ON 


06C0 

8RRE-- 




0.950 

0602 

0828 

MOV 

0LABPTR, 0SVMBOL+SVMPTR+SVMPTR 


06 C 4 

01068 





0606 

8D32 

' 



0951 

0608 

84 IF 

BLWP 

*GVLPT 

POINT TO SVMBOL VALUE 



RASM 


MIRA990 V2L1 17 

: 44 : 10 197, -'76 

PAGE 0827 

RECTI 

v'E PROC 

•ESS0R9 

948925 

-~990il : + :: + : 


0952 

06CR 

C21D 

MOV 

+SVMMPT', SPTR 


0953 

016CC 

C60i4 

MOV 

PC, *SPTR 

MODIFY SYMBOL VALUE 

0954 

06CE 

06D0 

0i 6 R 0i 
1490*** 

BL 

0PCPRN 

PLACE PC IN OUTPUT LINE 

0955 

0956 

06D2 

1006 

JMP 

PRQ2 

PRINT LINE 

0957 



* PROCES 

3 -BSS" COMMAND 


8958 






8959 



BBSS 



01960 

y 4 
0i6D6 

05R0 

16E6-' 

INC 

90TWP+NC0NS+NC0NS 

SET NON-CONSECUTIVE FLAG 

0961 

06D8 

06R8 

BL 

0PCPRN 

PLACE PC IN OUTPUT LINE 


06DR 

1490-' 




01962 

06DC 

86R01 

BL 

0EXEVL 

EVALUATE EXPRESSION 


06DE 

0RRE •" 




0963 



PR 0i 2 



01964 

0i6E0i 

1059 

JMP 

PRO 

PRINT OUTPUT LINE 

01965 






01966 



* PROCES 

:S " BVTE •" COMMAND 


01967 






01968 



RBVTE 


' 

0i 969 

06 E 2 

C804 

MOV 

PC, 0PPC 

ADJUST PRESENT PC 


06E4 

11BR " 




0197" 01 

W6ES 

0i 6 R 0i 

BL 

6WDE 

GET WELL DEFINED EXPRESS 


06E8 

0i R 0:01 •" 




0971 

0»6ER 

0:020 

MOV 

8EXWP+RESLT+RESLT, 

NWVRL 


06EC 

0F22 - 




8972 

©6EE 

D000 

MOVB 

MWVRL, NWVRL 

TEST RESULT FOR LIMITS 

£i973 

06F0 

1302 

JEQ 

RBVTE2 

NO TRUNCATION 

0974 

06F2 

06R01 

BL 

©TRUNK 

TEST TRUNCATION 


0i 6 F 4 

1120:-' 




0975 



RBVTE2 



0976 

yhFb 

8240 

AND I 

NWVRL, >FF 

TRUNCATE 


06F8 

00FF 




0977 

016FR 

0420 

BLWP 

08 INHEX 

CONVERT TO ASCII 


016FC 

0i BE 0i 




0978 

06FE 

0428 *'■ 

DATA 

NWVL 

LOCATION OF BVTE VALUE 

01979 

0170101 

0138 •" 

DATA 

INSVRL 

LOCATION IN OUTPUT LINE 

098© 

01702 

0:820 

MOV 

0BLRNK, 0 INSVRL 

CLEAR TOP PART OF WORD 


8704 

17DC •- 





01786 

0138-' 




0981 

0708 

0i 6 R 01 

BL 

0PCPRN 

PLACE PC IN OUTPUT LINE 


0i 7 0i R 

1498 -* 




©982 

0700: 

0584 

INC 

PC 

ADJUST PC 

0983 

0i 7 0i E 

0428 

BLWP 

0QUTBVT 

OUTPUT BYTE 


0710 

17E8 ’ 




01984 

0712 

84 IE 

BLWP 

: + : PRNPT PRINT LINE 

0985 

0714 

06R01 

BL 

0NXTFLD 

CHECK FOR NEXT FIELD 


0716 

0i R 0:0: •- 




01986 

0718 

10E4 

JMP 

RBVTE 

GET NEXT BYTE 


XRASM 


MIRR990 V2L.1 17:44:1© 197/76 

PAGE ©028 

•IRECTIVE PROC 

4 

:ESSGR 

S 9 4 8 925-99 8 1 * * 


8988 






©989 



* PROCE: 

SS •"DATA-- COMMAND 


0990 



* 



0991 



AD AT A 



0992 

071ft 

06ft0 

BL . 

©REVEN 

GET WORD BOUNDARY 


071C 

8B10 -* 




0993 



RDRTR2 



0994 

071E 

0804 

MOV 

PC, ©PPC 

ADJUST PRESENT PC 


0720 

HBft “ 




8995 

0722 

0420 

BLWP 

©EXPR 

GET EXPRESSION 


0724 

0F42 




0996 

0726 

1000 

JMP 

ADAT2 

NO FWD REF FOUND 

0997 






Q 'Z| ;D 



* OUTPUT FORWARD REFERENCE 

0999 






1000 

0728 

0600 

BL 

0PCPRN 

PLACE PC IN OUTPUT LINE 


072ft 

1490 -* 




1001 

07 2 C 

0504 

INCT 

PC 

INCREMENT PC 

1002 

072E 

0202 

LI 

CHAR, >2D2D 

PUT IN MINUS SIGNS 


0738 

2D 2D 




1003 

8732 

0882 

MOV 

CHAR, © I NSVAL 

PLACE INTO OUTPUT LINE 


8734 

0138 -* 




1004 

8736 

0802 

MOV 

CHAR, © I NSVAL +2 



0738 

813ft *" 




1005 

873ft 

6500 

INC 

©OTWP+NCONS+NCONS 

SET NON-CONSECUTIVE FLAG 


073C 

16E6 •- 




1006 

073E 

100F 

JMP 

ADAT4 


1007 



ADRT2 



1008 

0740 

0420 

BLWP 

©B INHEX 

CONVERT TO ASCII 


0742 

0BE0 




1009 

8744 

0F22 “ 

DATA 

EXWP+RESLT+RESLT 

EXPRESS I ON RESULT 

1010 

0746 

0138 

DATA 

I NSVAL 

I NSTRUCT I ON L.OCAT I ON 

1011 

0748 

0600 

BL 

©PCPRN 

PLACE PC IN OUTPUT LINE 


074ft 

1490 




101.2 

0740 

0504 

INCT 

PC 

ADJUST PC 

1.013 

074E 

0:160 

MOV 

©EXWP+RELVL+RELVL 

ZCK EXPRESSION TYPE? 


0750 

0F28 




1014 

0752 

1303 

JEQ 

ADAT3 

ABSOLUTE - SKIP 

1015 

0754 

D820 

MOVB 

©QT, ©RELMRK 

RELOCATABLE - SET APOSTR 


0756 

106B 





8758 

0130 •- 




101.6 



ADAT3 



1017 

075ft 

0420 

BLWP 

©OUTOBJ 

PLACE OBJECT IN BUFFER 


8750 

1706-‘ 




1018 



ADAT4 



1019 

075E 

041 E 

BLWP 

•-+-PRNPT 

PRINT LINE 

1020 

0760 

0600 

BL 

©NXTFLD 

CHECK NEXT FIELD 


0762 

0000 




102.1 

8764 

10DO 

JMP 

ADATR2 

MORE DATA - CONTINUE 

1823 

. j *~i yi 



* PROCE: 

•A* 

SS -‘DEF" COMMAND 


JL U CU **T 

1025 



•T* 

DEF 



1026 

0766 

841E 

BLWP 

*PRNPT 

PRINT LINE 
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1027 



DEFF 



1828 

0 768 

0420 

BLWP 

OS CRN 

GET OPERAND 


076R 

0C2C *'* 




1029 

0760 

100E 

JMP 

DFER 

NO SVMBOL FOUND 

1030 

076E 

8428 

BLWP 

0SRCSVM 

SEARCH SVMBOL TABLE 


0778 

0D94 •" 




1031 

8772 

1005 

JMP 

RINSVM 

SVMBOL NOT IN TABLE - GOOD 

1032 

0774 

0420 

BLWP 

0ER5 

MULTI PL V DEFINED SVMBOL 


0776 

0B5R 




1033 



RDEF2 



1034 

8778 

06R0 

BL 

0NXTFLD 

CHECK NEXT FIELD 


077R 

0RCC 




1035 

077C 

10F5 

JMP 

DEFF 

MORE SVMBOLS - CONTINUE 

1036 



R I NS VM 



1037 

0 r* i*' E 

0220 

MOV 

C-SVMBOL+SVMPTR+SVMPTR, SPTR 


0780 

0D32 




1038 

0782 

0200 

LI 

TVPE, SIXTN 

MARK AS UNREF-D EXT DEF 


0784 

0010 




1039 

0786 

6680 

q 

TVPE, : + ; SPTR 


1040 

8788 

10F7 

JMP 

RDEF2 

CHECK FOR MORE SVMBOLS 

1041 



DFER 


' 

1042 

078R 

0420 

BLWP 

@ER2 

SVNTAX ERROR IN DEF 


078C 

0B4E " 




1043 

078E 

10F4 

JMP 

RDEF2 

CHECK NEXT FIELD 

1044 



SVNTX 



1845 

0790 

8428 

BLWP 

0ER2 

SVNTAX ERROR 


0792 

0B4E " 




1846 



PRO 



1047 

0794 

0460 

B 

ORPRLN 

PRINT A LINE 


07 ? 96 

0542 




1048 






1049 



* PROCESS • 

' DORG •" COMMAND 


1050 






1051 



RDORG 



1052 

0798 

0580 

INC 

0OTWP+NCONS+NCONS 

SET NON-CONSECUTIVE FLAG 


079R 

16E6 ' 




1053 

079C 

0160 

MOV 

ODORGFL, ZCK 

IS CODE PRESENTLV IN DORG? 


879E 

1108 •'* 




1054 

07R0 

1606 

JNE 

RD0RG2 

VES, CONTINUE 

1055 

07R2 

0003 

MOV 

RELABS, RELRBS 

NO, IS CODE NOW RELOCATABLE 

1058 

07R4 

1302 

JEQ 

RD0RG1 

NO 

1057 

07R6 

0804 

MOV 

PC, 0RELPC 

VES, SAVE RELOCATABLE PC 


07R8 

0018 - 




1058 



RD0RG1 



1859 

07RR 

072© 

SETO 

0DORGFL 

SET DORG ENCOUNTERED FLAG 


07RC 

1108 




1080 



RD0RG2 



1061 

07RE 

06R0 

BL. 

OWDE 

GET WELL-DEFINED EXPRESSION 


0780 

0RC0 •" 




1062 

0782 

0168 

MOV 

OEXWP+RELVL+RELVL, 

ZCK EXPRESSION RELOCATABLE 


0784 

0F28 " 




1063 

0786 

1603 

JNE 

RLDORG 

VES, RELOCATABLE DORG 

1064 

0788 

0403 

• CLR 

RELRBS 

MARK CODE AS ABSOLUTE 

1065 

078R 

0460 

B 

0RR0RG3 

FINISH PROCESSING LIKE AORG 


07BC 

0698 
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106b 

1067 

07BE 

0203 

RLDDRG 

LI RELABS, 1 

MARK CODE AS RELOCATABLE 

1068 

07C0 

07C2 

0001 

0468 

B 0ARORG3 

FINISH PROCESSING LIKE RORG 

1069 

1070 

1071 

1072 

07C4 

0A24 ' 

=+: 

♦ PROCESS ' DXOP ' COMMAND 

* 

ADXOP 



1073: 

07C6 

042O 

BLWP 

0SCAN 

GET LABEL 


07C8 

0C2C-" 




1074 

07CR 

10E2 

JMP 

SVNTX 

NO SYMBOL - ERROR 

1075 

07 CC 

0420 

BLWP 

0SRCSVM 

SEARCH SYMBOL TABLE 


07CE 

0D94 




1076 

©7D0 

1003 

JMP 

ADX2 

NOT IN TABLE - GOOD 

1077 

07D2 

' 0420 

BLWP 

0ER5 

IN TABLE - MULTI BLV DEFINED 


0704 

0B5A ■’ 




1078 

0706 

10DE 

JMP 

PRG 

PRINT LINE 

1879 



ADX2 



1080 

0708 

C320 

MOV 

0SYMBOL+NWSCT +NWSCT, TVPE 


67 OR 

0D3E ' 




1881 

07 DC 

022C 

fll 

TVPE, ->18 

MARK RS DXOP 


07OE 

FFES 




1082 

07E0 

0ASC 

SLA 

TVPE, 8 


1683: 

07E2 

C228 

MOV 

0SVMBOL+SVMPTR+SVMPTR, SPTR 


07E4 

6D32 •- 




1084 

07E6 

D68C 

MOVE 

TVPE, *SPTR 

PLRCE IN SVMBOL TABLE 

1085 

07E8 

0411 

BLWP 

*GETC 

GET CHARACTER 

1086 

£i7ER 

8282 

CI 

CHRP, >2C 

IS IT R COMMA 


07EC 

002C 




1087 

07EE 

16D0 

JNE 

SVNTX 

N 0 .» S V N T R X E R R 0 R 

1088 

07F0 

02E6 

LWPI 

OPWP 

R 0 J U S T W 0 R K S P R C E 


07F2 

1256-' 




1089 

07F4 

06 A0 

BL 

0RR 

GET TERM FOR LEVEL INTERRUPT 


07F6 

1552"' 




1090 

07F 8 

02E6 

LWPI 

MR INN 

REESTABLISH WP 


07FR 

0428"' 




1091 

07FC 

041F 

BLWP 

*GVLPT 

POINT TO SVMBOL VALUE 

1092 

67FE 

C19D 

MOV 

*SVMNPT, SNRM 


1093 

0800 

C5A0 

MOV 

0OPNP*REGREQ*REGREG, *SNAM PLRCE LEVEL IN VALUE 


0802 

126E ' 




1094 

•1 (?•» Ci £7 

0804 

10C7 

JMP 

* 

: + : PROCESS i 

PRG 

PRINT LINE 

1996 

1997 
1 0 9 8 



END COMMRND 




T* 

REND 



i 999 

9806 

04 IE 

BLWP 

*PRNPT 

PRINT LINE 

1100 

0808 

Cl60 

MOV 

©NENFRF, zck 

CHECK NEW FWD REF FLAG 


0 8 0 R 

00 6 C ■ 




1101 

0800: 

1202 

JEQ 

ENDRL 

NONE NEW 

± 0 1 

080E 

0 4 2 0 

BLWP 

9SVMCLR 

SOME NEW - RESOLVE REhb 


0S10 0Dr6 

ENOAL 


0912 8828 

-/I H 1 4 1 8 E 


©OTWP+GBJPT+OBJPT, 0OBJBUF 




1121 

08 4 FI 

0220 


MOV 

0OTWP+OBJPT+OBJPT, SPTR VES, POINT TO OBJECT 


0840 

16EE" 





1122 

084 E 

DC 20 


MOVE: 

0ZZ1, h«SPTR+ 

MARK RS ABSOLUTE ENTRV RDDR 


8850 

0840 "* 





1123 

0852 

0246 


AND I 

SNRM, 2 

TEST FOR ABSOLUTE SVMBOL 


0854 

0002 





1124 

0856 

1602 


JNE 

ENDV 

VES, DO NOT ADJUST 

1125 

6858 

0608 


DEO 

SPTR 

NO, ADJUST FOR RELOCATABLE 

1126 

0858 

085C 

BE20 


AB 

0Z1, *5PTR+ 


1127 

tiUotn. 

ENDV 




1128 

CO 

cn 

m 

04 IF 


BLWP 

*GVLPT 

POINT TO SVMBOL VALUE 

1129 

0868 

0420 


BLWP 

OB INHEX 

CONVERT 


0862 

08E0 “ 





1130 

0864 

0D3C •- 


DATA 

SVMBOL+VRLUE+V 

ALUE SVMBOL VALUE TO HEX ASCII 

1131 

0866 

80179 •'* 


DfiTfi 

OBJRCD+1 

& STORE IN OBJECT RECORD 

1132 

0868 

022ft 


RI 

SFLRGS, 5 

MOD I F V IDT PLACEMENT 


086ft 

0005 





1 1 .£ .£ 



NOEV 




1:1.34 

0860 

0803 


MOV 

RELRBS, RELRBS 

CHECK RELOCATAB I L I TV 

1135 

086 E 

1602 


JNE 

RELEND 

RELOCATABLE - CONTINUE 

1136 

8870 

0128 


MOV 

OREL PC, PC 

NO - GET LAST RELOC LOCN 


8872 

0018"* 





1137 



RELEND 




1138 

8874 

D Eft 


MOVE: 

OOTBWP+ZZERO+Z 

ZERO, +SFLAGS+ 


0876 

17D2 "* 





1139 

0878 

080ft 


MOV 

SFLRGS, OE'v'LOC 

INITl'ALIZE IDT ENTRV 


087ft 

0886 "* 
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1.140 

887 C 

0020 

MOV 

©BLANK, NWVBL 

CREATE BLANK 


087E 

1 r* D U ' 




1141 

0880 

0428 

BLWP 

OB INHEX 

CONVERT PC 


0882 

06E0 " 




.1142 

0884 

8430 ■’ 

DATA 

PCVL 

LENGTH OF PROGRAM 

1143 

0886 

0886*“ 

EVLOC DRTfl 


LOCATION IN OBJECT 

1144 

0888 

022R 

RI 

SFLRGS, 4 

POINT TO IDT NAME AREA 


888ft 

0004 




1145 

088C 

0208 

LI 

SPTR, -8 

SET CHARACTER COUNT 


088E 

FFFS 




1146 



ENDLP 



1147 

0890 

DE80 

MOVE 

NWVRL, *SFLAGS+ 

BLANK OUT IDT NAME 

1:148 

0892 

0588 

INC 

SPTR 


1149 

0894 

11FD 

•JLT 

ENDLP 


1156 

089 6 

080ft 

MOV 

SFLRGS, ©OTMP+OBJPT+OBJPT 


0898 

16EE *“ 




1151 

089ft 

0420 

BLWP 

©CLROBJ 

CLEAR OBJECT 


0890 

17BE-’ 




1152 

089E 

020ft 

LI 

IOPRRM, COLON 

WRITE MODULE SEPARATOR 


08ft0 

0002 *“ 




1153 

08ft 2 

0420 

BLWP 

©WRITE 

' 


68R4 

19C2 •" 




1154 

08ft 6 

0820 

MOV 

ONUMERR, OBINVL 

CONVERT 


08ft 8 

0B44 *“ 





08ft ft 

0BO0 *“ 




1155 

08ft C 

0420 

BLWP 

0BINDEC 

NUMBER OF ERROR 


08ftE 

0BF 4 •" 




1156 

08B0 

0044 ••• 

DflTft 

NUMLOC 

PLACE ERROR COUNT INTO 

1157 

08 B 2 

028ft 

LI 

IOPRRM, NUMMSG 



88 B 4 

8843 *“ 




1:158 

08B6 

0420 

BLWP 

©PRINT 



08 B 8 

190E*“ 




1159 

08BR 

0160 

MOV 

©NUMERR, ZCK 

IF NO ERRORS SKIP 


08BC 

0B44 “ 




1160 

08 BE 

1384 

JEQ 

ENDEXT 


1161 

0800 

028ft 

LI 

IOPRRM, L..ERMSG 



0802 

0028 *“ 




1162 

0804 

0420 

BLWP 

©PRINT 



080 6 

19CE *“ 




1:163 



END EXT 



1:164 

0808 

0:160 

MOV 

©RBRTFL, ZCK 

IS ABORT FLAG SET 


080ft 

0100 *“ 




1165 

0800 

1602 

JNE 

ENDRST 

VES, RESTART 

116*6 

08OE 

0460 

B 

©BATCH 

RESTART ASSEMBLER 


08D8 

0494 ■- 




1167 



ENDRST 



1168 

08D2 

0460 

B 

©WREOF 

WRITE EOF AND RESTART 


08 D 4 

192E •“ 




1169 

08 D6 

0420 

EREND BLWP 

©ER2 



08D8 

0B4E " 




1178 



ERNOEV 



1171 

08DH 

020ft 

LI 

SFLRGS, OBJRCD 



08DC 

0078 *“ 




1172 

1173 

08DE 

1006 

•IMP 

NOEV 
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1174 




PROCES 

:S " EQU COMMAND 


1175 



* 




1176 



AEQU 




1177 

08E8 

86R0 


BL 

C-WDE 

GET WELL DEFINED EXPRESSION 


08 E 2 

8RC8 •* 





1178 

88E4 

Cl 68 


MOV 

C-LABSN, ZCK 

WAS LABEL USED 


88E6 

15R6 *" 





1179 

08E8 

1682 


JNE 

AEQU2 

YES - GOOD 

118© 

88ER 

8468 


B 

0SVNTX NO, SYNTAX ERROR 


08 EC 

8798 





1181 



AEQU2 




1182 

08EE 

04C0 


CLR 

NWVAL 

CLEAR VALUE 

1183 

08F8 

C228 


MOV 

0LABPTR, SPTR 

POINT TO SYMTAB ENTRY FOR LAB 


08F2 

8868 ■" 





1184 

08F4 

C888 


MOV 

SPTR, 0SVMBOL+SYMPTR+SVMPTR 


88F6 

8D32 *" 





1185 

0 y F 8 

D318 


MOVE: 

=+=SPTR, TYPE 


1186 

08FR 

828C 


Cl 

TYPE, >2800 

IS CODE RECENTLY DEFINED 


08FC 

2880 





1187 

88FE 

1182 


•JLT 

AEQU4 

YES 

1188 

8980 

8228 


fll 

NWVAL, 4 

NO, MARK NEW SYMBOL NOT 


0902 

0004 





1189 



AEQU4 




1.190 

©904 

Cl 68 


MOV 

0EXWP+RELVL+RELVL, 

ZCK EXPRESSION RELOCATABLE 


0986 

0F28 *" 





1191 

0988 

1682 


JNE 

AEQREL 

YES 

1192 

090R 

05C8 


INCT 

NWVAL 

NO, MARK SYMBOL ABSOLUTE 

1193 

098C 

1003 


•JMP 

AEQAB 


1194 



AEQREL 




1195 

098E 

D828 


MOVE: 

@QT, 0RELMRK 

PUT APOSTROPHE IN LINE 


8918 

1R6B‘* 






8912 

81 3 C 





1196 



AEQAB 




1197 

8914 

2328 


coc 

0EDF, TYPE 

EXTERNAL DEF? 


8916 

886R ■* 





1198 

8918 

1681 


-JNE 

AEQDF 

YES 

1199 

89 1R 

0588 


INC 

NWVAL 

NO, ADJUST FLAG 

1200 



AEQDF 




1201 

091 C 

0R30 


SLR 

NWVAL, 3 

ADJUST FLAG IN WORD 

1202 

891E 

8428 


BLWP 

0GETSCT 

GET SYMBOL COUNT 


8928 

8D5C •“ 





1203 

8922 

R828 


fl 

0SYMBOL+COUNT+COUNT, NWVAL 


8924 

8D34 *" 





1204 

0926 

0R80 


SLR 

NWVAL, 8 


1205 

8928 

D608 


MOVE: 

NWVAL, : + : SPTR 

MOVE IN NEW FLAGS 

1206 

892R 

84 IF 


BLWP 

*GVLPT 

POINT TO SYMBOL VALUE 

1287 

892C 

C19D 


MOV 

+SYMNPT, SNAM 

REPLACE VALUE 

1208 

892 E 

C5R8 


MOV 

0EXWP+RESLT +RESLT, 

♦SNAM 


0938 

0F22 





1209 

0932 

0428 


BLWP 

0B INHEX 

CONVERT VALUE FOR PRINTING 


8934 

0BE8 * 





1210 

8936 

8F22 ■' 


DATA 

EXWF'+RESLT +RESLT 

EXPRESSION VALUE 

1211 

8938 

0138" 


DATA 

INSVAL 

LOCATION IN OUTPUT LINE 

1212 

89 3 R 

1002 


JMP 

PRG3 
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1214 




PROCESS -EVEN-' COMMAND 


1215 







1216 



EVEN 




1217 

093C 

0680 


BL 

0AEVEN 

MAKE PROGRAM COUNTER EVEN 


093E 

0B10- 





1218 

0940 

0460 

PRG3 

B 

0APRLN 



0942 

0542 





1219 







1220 




PROCESS -TITL" COMMAND 


1221 



* 




1222 



RTITL 




1223 

0944 

020R 


LI 

DBRN, 25 

PREPARE FOR 50 CHARACTERS 


0946 

0019 





1224 

0948 

0207 


LI 

NWSVM, TITFX 

POINT TO TITLE AREA 


094A 

00C3 •" 





1225 



TITFX 

2 



1226 

09 4 C 

C00R 


MOV 

DBRN, NWVAL 

SAVE COUNT 

1227 

094E 

0810 


SLR 

NWV8L, 1 


1228 

0950 

C207 


MOV 

NWSVM, SPTR 

SAVE POINTER 

1229 



ZT 




1230 

8952 

DE20 


MOVB 

©BLANK, *SPTR+ 

CLEAR AREA 


0954 

17DC 





1231 

0956 

0600 


DEO 

NWVAL 


1232 

0958 

15FC 


JGT 

ZT 


1233 

895R 

0411 


BLWP 

*GETC 

GET CHARACTER 

1234 

095C 

0282 


Cl 

CHAR, >27 

IS CHARACTER A QUOTE 


095E 

0827 





1235 

0960 

1673 


JNE 

SVNTX2 

NO - SVNTAX ERROR 

1236 

0962 

05R0 


INC 

0SCWP+ I NCSC+ I NCSC 

SET INSIDE STRING FLAG- 


0964 

0010 *’ 





1237 



TITQ 




1238 

0966 

0420 


BLWP 

©SCAN 

GET TWO CHARACTERS 


0968 

0020 •'* 





1239 

096R 

1000 


NOP 


< DUMMY EXIT FROM SCAN> 

1240 

0960 

0820 


MOV 

0SCWP+RESLT +RESLT, 

NWVAL GET WORD OF CHRS 


096E 

0012 





1241 

0978 

138D 


•JEQ 

TITQ3 

IF ZERO - END HIT 

1242 

0972 

DDO0 


MOVB 

NWVAL, *NWSYM+ 

PLACE INTO STRING 

1243 

0974 

0600 


SWPB 

NWVAL 

GET SECOND CHARACTER 

1244 

097 6 

D000 


MOVB 

NWVAL, NWVAL 

IS SECOND CHARACTER ZERO 

1245 

0978 

1309 


JEQ 

TITQ2 

VES - END AT ONE CHARACTER 

1246 

097R 

DDC0 


MOVB 

NWVAL, *NWSVM+ 

PLACE INTO STRING 

1247 

0970 

068R 


DEC 

DBRN 

DECREMENT COUNT 

1248 

09 7 E 

15F3 


JGT 

TITQ 

CONTINUE IF MORE CHARACTER 

1249 

0988 

0411 


BLWP 

*GET C 

GET CHARACTER 

1250 

0982 

0282 


Cl 

CHAR, >27 

IS CHARACTER A QUOTE 


0984 

0027 





1251 

0986 

1302 


JEQ 

TITQ3 

VES - END NORMALLY 

1252 

0988 

0420 


BLWP 

0ER4 

NO - TRUNCATION ERROR 


09 8 R 

0B56 





1253 



TITQ2 




1254 



TIT Q 3 




1255 

0980 

04E0 


CLP 

0SCWP+ I NCSC+ I NCSC 

CLEAR INSIDE STRING FLAG 


098E 

0010 -* 





1256 

0990 

1815 


JMP 

RRG 

READ NEXT RECORD 
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-IDT- COMMAND 
*PRNPT PRINT LINE 

©OTWP+OB JPT +GB JPT, 0OBJSTP POINT INTO OBJECT 


a c? 
X U f 




1258 



•*+: 

1259 




1268 



ft IDT 

1261 

0992 

041E 


1262 

0994 

8820 



8996 

16EE 



8998 

0BD6 '* 


126 s 

099ft 

1303 


1264 

099C 

0428 



099E 

0B4E *“ 


1265 

09ft0 

100D 


1266 



IDTFX 

1267 

09 ft 2 

028ft 



09ft4 

01004 


12 6 8 

09ft6 

0287 



89ft 8 

007D 


1269 

09flfi 

10D0 


1278 




1271 




1272 




1273 



ftLIST 

1274 

09ftC 

05R0 



09ftE 

1856" 


1275 

09B0 

1005 


1276 




1277 




1278 



:+: 

1279 



RPflQE 

1280 

09B2 

C160i 



09B4 

1856 " 


1281 

09B6 

1302 


1282 

09B8 

04201 



09Bft 

15ftE" 


1283 

09BC 

0466 

RRG 


09BE 

050ft ** 


1284 




1285 



:+: 

1286 



:+: 

1287 



REF 

1288 

0900 

041 E 


1289 



REFF 

1298 

0902 

0420 



0904 

0020 


1291 

0906 

1011 


1292 

0908 

0420 



090ft 

0D94 ‘ 


1293 

0900 

1003 


1294 

09 OE 

0420 



09D0 

0B52 -■ 


1295 

09D2 

1008 


1296 



fiRF2 . 

1297 

09D4 

0020 



09D6 

0D3E " 


1298 

89D8 

022Oi 



PROCESS 

BLWP 

C 

JEQ IDTFX 
BLWP C-ER2 

JMP RRG 

LI DBRN, 4 

LI NWSVM, OBJRCD+5 

JMP TITFX2 

PROCESS 'LIST-- COMMAND 

INC ©LIST 
JMP RRG 

PROCESS -PAGE- COMMAND 

MOV ©LIST, ZCK 

JEQ RRG 
BLWP ©PGHDR 

B ©BREAD 

PROCESS -'REF-' COMMAND 

BLWP +PRNPT 

BLWP ©SCAN 

JMP ARFER 
BLWP ©SRCSYM 


RIGHT LOCATION - CONTINUE 
TOO LATE - SYNTAX ERROR- 

READ NEXT RECORD 

SET COUNT 

POINT TO AREA FOR FILL 
FILL IN STRING- 

SET LIST FLAG 
READ NEXT RECORD 

IS LIST FLAG SET 

NO - READ NEXT RECORD 
YES - PRINT PAGE HEADER 

READ NEXT RECORD 

PRINT LINE 

GET SYMBOL 

NO SYMBOL - ERROR 
SEARCH SYMBOL TABLE 


JMP ARF2 
BLWP ©ER3 


NOT IN TABLE - GOOD 
ILLEGAL EXTERNAL REFERENCE 


JMP ANXTFL 


GET NEXT FIELD 


MOV ©SVMBOL+NWSCT+NWSCT, NWVAL 


AI 


NWVAL, 8 


ADJUST FLAG VALUE 
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09DA 

0008 




rv 1299 

09DC 

C220 

MOV 

0SVMBOL+SVMPTR+SVMPTR, SPTR 

c 

09DE 

0D32 




^ 1300 

09E0 

06C0 

SWPB 

NWVAL 

PLACE IN SVMBOL TABLE ENTRY 

1301 

09E2 

D600 

movb 

NWVAL, *SPTR 


1302 



ANXTFL 



1303 

09E4 

06A0 

BL 

0NXTFLD 

CHECK NEXT FIELD 


09E6 

0 ACC " 




1304 

09E8 

10EC 

JMP 

REFF 

MORE SYMBOLS - CONTINUE 

1305 



ARFER 



1306 

09EA 

0420 

BLWP 

0ER2 



09EC 

0B4E"' 




1307 

09EE 

10FA 

JMP 

ANXTFL 

TEST NEXT FIELD 

1308 






1309 



* PROCESS 

"RORG" COMMAND 


1310 



* 



1311 



ARORG 



, 1312 

09F0 

05A0 

INC 

0OTWP+NCONS+NCONS 

SET NON-CONSECIJTIVE FLAG 


09F2 

16E6"' 




1313 

09F4 

C160 

MOV 

ODORGFL, ZCK 

IS CODE PRESENTLY IN DORG? 


09F6 

11.C 8"' 




1314 

09F8 

1602 

JNE 

AR0RG2 

YES 

1315 

09FA 

C0C3 

MOV 

RELABS, RELABS 

PRESENTLY RELOCATABLE? 

13:16 

09FC 

1606 

JNE 

RELORG 

YES, SKIP 

1317 

09FE 

0203 

AR0RG2 LI 

RELABS, 1 

MARK CODE AS RELOCATABLE 


0A00 

0001 




1318 

0A02 

Cl 20 

MOV 

0RELPC, PC 

GET OLD RELOC VALUE 


0A04 

0C18 •" 




1319 

0A06 

04E0 

CL.R 

0DORGFL 

RESET DORG FLAG- 

r 

©A08 

11C8 " 




1320 



RELORG 



1321 

0R0R 

0420 

BLWP 

0LKCHRR 

LOOK AT NEXT CHARACTER 


0A0C 

115C- 




1322 

0A0E 

0282 

Cl CHAR, >D 

IF CARRIAGE RETURN, RETURN 


0R10 

000D 




1323 

0A12 

130R 

JEQ 

ROUT 


1324 

0A14 

06A0 

BL 

0WDE 

GET WELL DEFINED EXPRESSION 


0A16 

. 0 AC© •" 




1325 

0A18 

Cl 60 

MOV 

0EXWP+RELVL+RELVL, 

ZCK EXPRESSION RELOCATABLE 


0R1R 

0F28 




1326 

0A1C 

1603 

JNE 

A RORG 3 

YES 

1327 

0A1E 

0420 

BLWP 

0ER2 

NO - SYNTAX ERROR 


0R20 

0B4E •" 




1328 

0A22 

1002 

JMP 

ROUT 


132.9 



AR0RG3 



1338 

0A24 

C120 

MOV 

0EXWP+RESLT +RESLT, 

PC REPLACE OLD PC 


0A26 

0F22"' 




1331 



ROUT 



1332 

0A28 

Cl 60 

MOV 

QLABSN, ZCK 

WAS LABEL PRESENT 


0A2A 

15A6" 




1333 

0A2C 

1309 

JEQ 

R0UT2 

NO - EXIT 

1334 

0R2E 

C1E0 

MOV 

0LABPTR, NWSVM 

YES - POINT TO IT 


0fl30 6)068"' 

035 0A32 55E8 SZCB 0ROAB, *NWSVM 

0A34 006F " 


c 


ADJUST RELOCATAB I L I TV 


PftGE 0037 
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1336 

QR26 

C807 


MOV NWSYM, 0SYMBOL+SY 

MPTR+SVMPTR 


0R28 

0D32 




027 

0R3R 

041F 


BLWP *GVLPT 

POINT TO SYMBOL VALUE 

1328 

0R2C 

C19D 


MOV *SVMNPT, SNRM 

ADJUST VALUE 

1229 

0R3E 

0584 


MOV PC, ♦SNRM 


1240 



ROUT 2 



1341 

0R40 

06R0 


BL 0PCPRN 

PLACE PC IN OUTPUT LINE 


0R42 

1490-' 




1342 



PRG4 



1242 

0R44 

0460 


B 0APRLN 

PRINT LINE 


0R46 

0542 *'■ 




1244 



SVNTX2 



1245 

0R48 

0468 


B OSVNTX 



0R4R 

8790 •*’ 




1246 






1247 



-•+: 

PROCESS •TEXT’ COMMAND 


1248 






1249 



ATXT 



1258 

0R4C 

04CR 


OL.R SFLRGS 

CLEAR NEGATIVE FLAG 

1251 

0R4E 

0411 


BLWP *GETC 

GET CHARACTER 

1252 

0R58 

0282 


CI CHRR, >2D 

IS IT A MINUS 


0R52 

002D 




1252 

0R54 

1602 


JNE NOM 

NO MINUS 

1254 

0R56 

058R 


INC SFLRGS 

YES, SET NEGATIVE FLAG 

1255 

0R58 

0411 


BLWP *GETC 

GET CHARACTER 

1256 



NON 



1257 

0R5R 

0282 


01 CHRP, >27 

IS CHAR A QUOTE 


0R5C 

0027 




1258 

0R5E 

16F4 


,TNE SVNTX2 

NO, SYNTAX ERROR 

1259 

0R60 

05R0 


I NC 0SCWP+ I NCSC+ I NCS 

C SET INSIDE STRING FLAG 


0R62 

0C1C •** 




1260 



GTQ 



1261 

0R64 

8420 


BLWP ©SCAN 

GET QUOTED PAIR 


0R66 

0C2C 




1262 

0R68 

1000 


NOP 


1262 

0R6R 

C020 


MOV 0SCWP+RESLT +RESL 

T, NWVRL 


0R6C 

0C12 •“ 




1264 

0R6E 

0600 


SWPB NWVRL 


1265 

0R78 

D000 


MOVB NWVRL, NWVRL 

IS THERE ONLY ONE CHARACTER 

1266 

0R72 

1200 


JEQ EXTQ 

YES, LAST CHARACTER 

1267 

0R74 

06R0 


BL 0OUTNW2 

NO - OUTPUT VALUE 


0R76 

0RE8 •' 




1268 

0R78 

0620 


DEC 8SC WP+SCPT +SCPT 

DECREMENT SCAN POINTER 


0R7R 

0016 ■" 




1269 

8R7C 

8420 


BLWP 0L.KCHRR 

WAS SEC CHAR A QUOTE 


0R7E 

1150 •- 




1270 

0R88 

0282 


CI CHRR, >27 



0R82 

0027 




1271 

0R84 

16EF 


JNE GTQ 

NO, CONTINUE 

1272 

0R86 

0620 


DEC ©SCWP+SCPT +SCPT 

YES, DECREMENT SCAN POINTER 


0R88 

0016 •" 




1272 

0R8R 

10EC 


JMP GTQ 

GET NEXT QUOTED PAIR 

1274 



EXTQ ' 



1275 

0R8C 

028 R 


MOV SFLRGS, SFLRGS 

IS NEGATE SET 

1276 

0R8E 

1201 


JEQ EXTQ2 

NO - EXIT 
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LESSORS 
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1420 

0ADA 

0420 

BLWP 

0ER2 

1421 

0ADC 

0ADE 

0B4E' 

C160 

MOV 

0FSTPT, ZCK 

1422 

0AE0 

0AE2 

1858-' 

13E0 

JEQ 

TXTEND 

1423 

0AE4 

10AF 

JMP 

PRG4 

1.424 

1425 

0AE6 

N> 

045B 

<OUT 

RT 



:1.97V 76 


SYNTAX ERROR 

HAS LINE BEEN PRINTED 

VES - READ RECORD 
NO - PRINT LINE 

RETURN 


1426 

1.42? 

1428 

1429 


OUTPUT TEXT VALUE 


OUTNW2 


1420 

0AE8 

0420 


BLWP 

@8 INHEX 

PUT OUT VALUE 


0AEA 

08 E0 





1431 

8AEC 

0428 


DftTft 

NWVL 

BYTE VALUE 

1422 

0AEE 

0128 x 


DftTfi 

INSVflL 

LOCATION IN OUTPUT LINE 

1422 

0AF0 

0820 


MOV 

©BLANK/ © I NSVflL 

BLANK OUT FIRST BYTE 


0AF2 

17DC •" 






0AF4 

0128*" 





1424 

0AF6 

0208 


MOV 

11, TV PE 

SAVE RETURN 

1425 

0AF8 

06R8 


8L 

©PCPRN 

PLACE PC IN OUTPUT LINE 


0AFA 

1498" 





1426 

0AFC 

8584 


I NO 

PC 

PUT OUT AND I NCR LOC 

1427 

0AFE 

0B00 

0884 

:118ft 


MOV 

PC, ©PRO 

ADJUST PRESENT PC 

1428 

0B02 

0420 


BLWP 

©OUTBVT 

OUTPUT BYTE 


0B04 

17E8 " 





1429 

0B06 

0160 


MOV 

©FSTPT, ZCK 

FIRST TIME FOR PRINT? 


0B08 

1858" 





1 4 4 0 

0B0A 

1201 


JEQ 

OUTNW 

NO, SKIP 

1441 

1442 

0B0C 

041 E 

OUTNW 

BLWP 

*PRNPT 

PRINT LINE 

1442 

0B0E 

0450 


8 

*TVPE 

RETURN 

1444 

1445 

•j A .••{ cT 



ft EVEN 

MftKE I 

PROGRAM COUNTER 

EVEN 

.1. H- ‘-r O 

1447 






1448 

0B10 

0584 


INC 

PC 

MAKE PROGRAM COUNTER EVi 

1449 

0B12 

0244 


AND I 

PC, >FFFE 



0B14 

ppp-p 





1458 

0B16 

0160 


MOV 

©LftBSN, ZCK 

IS LABEL PRESENT 


0B18 

15 ft 6*" 





1451 

0B1A 

1206 


JEQ 

AEVOUT 

NO - QUIT 

1452 

0B1C 

0820 


MOV 

©LflBPTR, ©SYMBOL 

,+SVMPTR+SVMPTR YES : 


0B1E 

0068 ■'* 






0B20 

0D22 *" 





1452 

W E' 

04 IF 


BLWP 

*GVLPT 

POINT TO SYMBOL VALUE 

1454 

0B24 

0190 


MOV 

*SVMNPT, SNAM 

ADJUST VALUE IN LABEL 


1455 0B26 

1456 

1.457 0B28 

0B2A 
1458 0B2C 


C584 

04E8 

17D8 

045B 


AEVOUT 


MOV PC, +SNAM 

CLR 0OTBWP+BVTFL+BVTFL CLEAR BYTE BOUNDARY FLAG 
RT RETURN 
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1461 

1462 

1463 

1464 

0B2E 

0000 

* 

* ERROR PROCESSOR WORKSPACE 

* 

LPWP DATA 0 

AREA 

R0 

ERRG 

1465 

0B30 

0020 


DATA 

>20 

R1 

BLNKK 

1466 

0832 

0000 


DATA 

0 

R2 

CHAR 

1467 

0834 

0008" 


DATA 

ERMSG 

R3 

MSGPT 

1468 

0836 

001E" 


DATA 

LERRDD 

R4 

LMSGPT 

1469 

0838 

0006- 

ENOST 

DATA 

SVMT 

R5 


1470 

083R 

0C16- 


DATA 

SCNP+SCPT +SCPT 

R6 

SCNR 

1471 

0B3C 

0BF4 - 


DATA 

BINDEC 

R7 

BINDPT 

1472 

0B3E 

3200 


DATA 

>3200 

R8 

EROFST 

1473 

0840 

3100 

ZZ1 

DATA 

>3100 

R9 


1474 

0842 

0000 


DATA 

0 

R10 

I OP ARM 

1475 

0844 

0000 

NUMERR 

DATA 

0 

Rll 

NUMERG 

1476 

0846 

15RE- 


DATA 

PGHDR 

R12 

PGP 

1477 

0848 

0000 


DATA 

0 

R13 

OLD WP 

1478 

084 fl 

0000 


DATA 

0 

R14 

OLD PC- 

1479 

0B4C 

0000 


DATA 

0 

R15 

OLD SR 
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1481 



* TITLE: 

ERROR 

1482 





ERROR PROCESSOR 

1483 



* REVISION: 

03/01/74 

1484 





ORIGINAL 

1485 





03/15/76 

1486 





MODIFIED TO RUN WITH PXRMTR 

1487 



* COMPUTER: 

990, ASSEMBLY 

1488 



* ABSTRACT: 


1489 



* 


SEVEN ENTRY POINTS ARE GIVEN INTO THE ERROR 

1490 





PROCESSOR TO CREATE THE APPROPRIATE VALUE : 

1491 



* 


ER2 - SYNTAX ERROR 

1492 



* 


ER3 - ILLEGAL EXTERNAL REFERENCE 

1493 



* 


ER4 - TRUNCATION ERROR 

1494 



:+: 


ER5 - MULTIPLY DEFINED SYMBOL 

1495 



:+: 


ER6 - UNRECOGNIZABLE OPERATOR 

1496 





ER7 - ILLEGAL FORWARD REFERENCE 

1497 



:+: 


ER8 - ILLEGAL TERM 

1498 



:+: 


THE PROCESSOR WILL SCAN THE INPUT LINE TO THE 

1499 





NEXT COMMA, BLANK, OR EOL TO ATTEMPT TO 

1500 





CONTINUE SCAN OF LINE. 

1501 



* CALLING SEQUENCE: 

1502 





BLWP 0ERX X = 2, 3, 4, 5, 6, 7, 8 

1503 



=+= ADDITIONAL NOTES: 

1504 



=+= 


WORKSPACE = LPWP < UNSHARED > 

1505 



=+= 


ROUT I NES CALLED : B I NDEC, PGHDR, PR I NT 

1506 



ER2 



1507 

0B4E 

8B2E 


DATA 

LPWP 

1508 

0B50 

0B76" 


DATA 

ERR0R2 SYNTAX ERROR 

1509 



ER3 



1510 

0B52 

0B2E •" 


DATA 

LPWP 

1511 

0B54 

0B7 4 ■' 


DATA 

ERRORS ILLEGAL EXTERNAL REFERENCE 

1512 



ER4 



1513 

0B56 

0B2E-' 


DATA 

LPWP 

1514 

0B58 

0B72-" 


DATA 

ERR0R4 TRUNCATION ERROR 

1515 



ER5 



1516 

0B5FI 

0B2E •' 


DATA 

LPWP 

1517 

0B5C 

0B70-' 


DATA 

ERRORS MULTIPLY DEFINED SYMBOL ERR 

1518 



ER6 



1519 

0B5E 

0B2E '■ 


DATA 

LPWP 

1520 

0B60 

0B6E "• 


DATA 

ERRORS UNRECOGNIZABLE OPERATOR ERRi 

1521 



ER7 



1522 

0B62 

0B2E-' 


DATA 

LPWP 

1523 

0B64 

0B6C ■’* 


DATA 

ERR0R7 ILLEGAL FORWARD REFERENCE 

1524 



ER8 



1525 

0B66 

0B2E " 


DATA 

LPWP 

1526 

a c:; ~7 

0B68 

0B6A •" 

•x. 

DATA 

ERRORS ILLEGAL TERM 

..L i* 

1528 



•T* 

ENTRY 

POINTS 

1529 






153*0 



ERRUR8 



1531 

0B6A 

0580 


INC 

ERRG 

1532 



ERROR? 



1533 

0B6C 

0580 


INC 

ERRG 

1534 



ERRORS 
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1535 

8B6E 

8580 


INC 

ERRG 


±536 



ERRORS 




1537 

0878 

0580 


INC 

ERRG 


1538 



ERR0R4 




1539 

0872 

0580 


INC . 

ERRG 


1540 



ERR0R3 




1541 

0874 

0580 


INC 

ERRG 


1542 



ERR0R2 




1543 



* 




1544 



* CREATE ERROR MESSAGE 


1545 



* 




1546 

0876 

0fl80 


SLfl 

ERRG.. 8 

SHIRT ERROR NUMBER LEFT 

1547 

0878 

R008 


ft 

ERQFST, ERRG 

CONVERT FOR ASCII 

1548 

087ft 

D880 


MOVE 

ERRG, ©ERNUM 

PLACE ERROR NUMBER IN OUTPUT 


0B7C 

0011 ■** 





1549 

0B7E 

C820 


MOV 

0RCDCNT, ©BINVL 

CONVERT STATEMENT NUMBER 


0880 

1862" 






0882 

0BC0 





1550 

0884 

841.7 


BLWP 

*8 I NDPT 

TO DECIMAL AND PLACE 

1551 

8886 

001FT* 


DATA 

ERLOC 

IN ERROR MESSAGE 

1552 

0888 

0620 


DEC 

©LNCNT 

DECR LINE COUNT OF PRINT 


0B8fl 

1590 •" 





1553 

0B8C 

1501 


JGT 

MSGPRT 

IF ROOM, PRINT MESSAGE 

1554 

0B8E 

04 1C 


BLWP 

*PGP 

NO ROOM, PRINT HEADER 

1555 



MSGPRT 




1556 

0890 

0283 


MOV 

MSGPT, I OPftRM 

POINT TO ERROR MESSAGE 

1557 

8892 

0420 


BLWP 

©PRINT 

PRINT MESSAGE 


0894 

19CE" 





1558 

0896 

C520 


MOV 

©BLANK, *LMSGPT 

EXTEND TO INCL LAST ERR MSG 


0898 

17DC ■" 





1559 

089ft 

0828 


MOV 

©RCDCNT, ©BINVL 

CONVERT CURRENT RECORD COUNT 


0B9C 

1862 






0B9E 

8BC0 





1568 

08ft0 

8417 


BLWP 

*8 I NDPT 

TO DECIMAL. AND STORE 

1561 

0Bfi2 

0030 


DATA 

LERLOC 

IN LAST ERROR MESSAGE 

1562 

0Bft4 

{7-jPJC;0 


INC 

NUMERG 

I NCR NUMBER OF ERRORS 

1563 



LPBG 




1564 

0Bft6 

8428 


BLWP 

©GETCHR 

GET CHARACTER 


0Bft8 

11 6E* 





1565 

©BAA 

8842 


C 

CHAR, BLNKK 

IS IT A BLANK 

1566 

08ftC 

1386 


JEG 

EXLP 

VES, EXIT 

1567 

0BflE 

0282 


Cl 

CHAR, >2C 

A COMMA? 


'0880 

002C 





1568 

0882 

1383 


JEG 

EXLP 

VES, EXIT 

1569 

0884 

0282 


Cl 

CHAR, EOL 

END OF LINE? 


0886 

000D 





1578 

0888 

16F6 


•JNE 

LPBG 

NO, CONTINUE SCANNING 

1571 



EXLP 




1 57 “' 

088ft 

0616 


DEC 

*SCNR 

POINT TO LAST CHARACTER READ 

1573 

0BBC 

0400 


CLR 

ERRG 

CLEAR ERROR TVPE 

1574 

0BBE 

0380 


RTWP 


RETURN 
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C 


1577 









1578 



% CONVERSION ROUTINE 

WORKSPACE AREA 


1579 



4 - 






1580 



CONVWS 






1581 

0BC0 

0000 

BINVL 

DATA 

0 

R0 

BINVAL 

BINARV VALUE 

1582 

0BC2 

0000 


DATA 

8 

R1 

VALSV 

TEMP VALUE SAVE 

1583 

0BC4 

0800 


DATA 

0 

R2 

MADD 

LOCN ASCII VALUE 

'1584 

0BC6 

8800 


DATA 

0 

R3 

SCCODE 

SUPV CALL CODE 

1585 

0BC8 

0000 

ASCVL1 

DATA 

0 

R4 

ASCII VALUE 

1586 

OBCfl 

0008 

ASCVL2 

DATA 

0 

R5 



1587 

0BCC 

000© 


DATA 

0 

R6 



cr c, 

0BCE 

0C00 


DATA 

>C00 

R7 

BHCODE 

BINARV/HEX SCC 

1589 

0BD0 

0R08 


DATA 

>000 

R8 

BDCODE 

B I NARV/DEC I MAL SCC 

1590 

0BD2 

FFFC 


DATA 

-4 

R9 

HCNT 


1591 

0BO4 

0080 


DATA 

0 

R10 

PCNT 

CHAR MOVE COUNT 

1592 

0BD6 

8085 

OBJSTP 

DATA 

OBJST 

Rll 



1593 

0BD8 

0078 •’* 

OBJBUF 

DATA 

OBJRCD 

R12 



1594 

0BDfl 

0000 


DATA 

0 

Rll 


OLD WP 

1595 

0BDC 

0080 


DATA 

0 

R14 

CHOPC 

OLD PC 

1596 

0BDE 

0000 


DATA 

0 

R15 


OLD ST 


PXRASM 

CONVERT 

'1598 

1.59.9 

•1600 

1601 

1602 

1603 

1604 

1605 
*1606 

1607 

1608 

1609 

1610 
1611 
1612 
161.2 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1.625 

1.626 

1.627 

1.628 

1629 

1630 

1.631 

1.632 

1634 

1635 

1636 
1627 

1629 

1640 

1.641 

1642 

1643 

1644 
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* TITLE: CONVRT < B I NHEX/B I NDEC > 

* CONVERSION ROUTINES 
■* REVISION: 03/01/74 

* ORIGINAL 

+ 03/15/76 

* MODIFIED TO RUN WITH PXRMTR 

* COMPUTER: 990, flSSEMBLV 

* ABSTRACT: SETS UP SUPERVISOR CALL BLOCK FOR CALL 

* AND STORES VALUES AFTER RETURN IN USER 

* DEFINED LOCATIONS. 

* CALLING SEQUENCE: 

* BINARY TO HEX ASCII 

* BLWP QB INHEX 

* DATA ADDRESS-OF-VALUE 

* DATA ADDRESS-FOR-PLACEMENT 

* BINARY TO DECIMAL ASCII 

* MOV VALUE, OBINVL 

* BLWP OB I NDEC 

* DATA ADDRESS-FOR-PLACEMENT 

B INHEX 


0BE0 

0BC0 ••' 


DATA 

CONVWS 

' 

0BE2 

8BE4-* 

BIHEX 

DATA 

BIHEX 


0BE4 

C03E 


MOV 

*CHOPC+, BINVAL 

POINT TO ADDRESS OF VALUE 

0BE6 

C01.0 


MOV 

*BINVAL, BINVAL 

GET VALUE IN R0 FOR CALL 

0BE8 

COG 7 


MOV 

BHCODE, SCCODE 

SET UP SUPV CALL CODE 

0BEA 

2FC3 


SVC 

SCCODE 

BINRRV TO HEX SUPV CALL 

0BEC 

C0BE 


MOV 

*CHOPC+, MADD 

GET PLACEMENT L..OC & NEW RTN 

0BEE 

0201 


LI 

VALSV, ASCVL1 

SET UP ASCII VALUE POINTER 

0BF0 

0BCS •- 





0BF2 

1007 

* 

B I NDEC 

JMP 

MOVAL 


0BF 4 

0BC0 •" 


DATA 

CONVWS 


0BF6 

0BF8 

* 

BINDC 

DATA 

BINDC 


0BF8 

C0C8 


MOV 

BDCODE, SCCODE 

SET UP SUPERVISOR CALL. CODE 

0BFR 

2FC3 


SVC 

SCCODE 

BINARY TO DECIMAL SUPV CALL 

0BFC 

C0BE 


MOV 

*CHOPC+, MADD 

GET PLACEMENT LOC & NEW RTN 

0BFE 

0201 


LI 

VALSV, ASCVL2 

SET UP ASCII VALUE POINTER 

0C00 

0BCR " 

MOVAL 




0C02 

C289 

BIN 

MOV 

HCNT, PC NT 

I NIT COUNT TO 4 

8C04 

DCB1 


MOVE: 

*VALSV+, *MADD+ 

MOVE CONVERTED DECIMAL VALUE 

0C06 

058R 


INC 

PCNT 

TO USER SPECIFIED LOCATION 

0C08 

11FD 


JLT 

BIN 


0C0R 

0380 


RTWP 


RETURN 
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:RN PROCESS 

I NG 


948925-99 0 1 : + ; * 



1647 







1648 

•1 iSTjiQ 



* SCAN WORKSPACE AREA 



o t ,7 

1650 



•T* 

SCWP 




1651 

0C0C 

0008 


DATA 8 

WR0 

QTCLS 

1652 

0C0E 

0008 


DATA 0 

WR1 

CLSTVP 

1657 

0C10 

0000 


DATA 0 

WR2 

CHAR 

1654 

0C12 

0000 


DATA 0 

WR3 

RESLT 

1655 

0C14 

0B56 


DATA ER4 

WR4 

ERR4 

1656 

0C16 

8000 


DATA 0 

WR5 

SORT 

1657 

0018 

0000 

RELPC 

DATA 0 



1658 

0C1A 

0CE4 •*' 


DATA NXCHAR 

WR7 

NXCPT 

1659 

0C1C 

0000 


DATA 0 

WR8 

INCSC 

1660 

00 IE 

0000 


DATA 0 

WR9 

SCNT 

1661 

0020 

0D18 •' 


DATA TQUOT 

WR10 

TQC 

l66ci' 

0022 

0000 


DATA 0 

WR11 

RTREG 

1667 

0024 

0000 


DATA 0 

WR12 

SAVE 

16fc*4 

0026 

0000 


DATA 0 

WR13 

OLD WP 

1665 

0028 

0000 


DATA 0 

WR14 

OLD PC 

1666 

0C2A 

0000 


DATA 0 

WR15 

OLD SR 
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1668 



* 

TITLE: 

SCAN 

1669 





SCAN PROCESSING 

1670 



:+: 

REVISION : 

03/01/74 

1671 



:+: 


ORIGINAL 

1672 



:+: 

COMPUTER : 

990/ ASSEMBLY 

1673 




ABSTRACT : 


1674 



* 


THE FIRST CHARACTER IS USED TO DETERMINE IF THE 

1675 





SCAN VALUE IS A SVMBOL OR A NUMERIC CONSTANT. 

1676 



* 


THE SCAN OF A SYMBOL CONTINUES UNTIL A NON- 

1677 





ALPHANUMERIC CHARACTER IS SEEN. BUT ONLY THE 

1678 



* 


FIRST SIX CHARACTERS ARE SAVED < ZERO-F I LL > . A 

1679 



:+: 


COUNT OF THE NUMBER OF CHARACTERS IS KEPT. 

1680 





THE SCAN OF A NUMERIC VALUE CONTINUES UNTIL. A 

1681 





INAPPROPRIATE CHARACTER IS REACHED. THE 

1682 



:+: 


NUMERIC VALUE IS CONVERTED INTERNALLY. 

1683 



:* 

CALLING SEQUENCE: 

1684 





BLWP ©SCAN 

1685 



:+•* 


■IMP NUMERIC LOCATION JUMP TO NUMERIC PROCESSOR 

1686 



:+: 

ADDITIONAL NOTES: 

1687 



* 


WORKSPACE = SCWP < UNSHARED > 

1688 



* 


TWO POSSIBLE RETURNS MAY BE TAKEN BY SCAN. IF 

1689 





A NUMERIC VALUE IS FOUND.. THE CONVERTED NUMERIC 

1690 





VALUE PLACED IN RESLT AND PROCESSING CONTINUES 

1691 





AT THE MEMORY WORD FOLLOWING THE CALL.. IF A 

1692 





SYMBOL IS FOUND. RESLT WILL CONTAIN A POINTER 

1693 





TO THE SIX CHARACTER NAME (THIS POINTER WILL 

1694 





ALSO BE GIVEN TO MAINW+NWSYMX. THE 

1695 





CHARACTER COUNT IS PLACED IN SVMBOL+NWSCT+NWSCT 

1696 





AND PROCESSING CONTINUES AT THE SECOND WORD 

1697 





AFTER THE CALL SCAN UTILIZES A CLASS TABLE IN 

1698 





ANALYZING CHARACTERS. 

1699 





ROUTINES CALLED : ER4.. ER2, NXCHAR.- TQUOT 

1700 



Si 

CAN 


1701 

QC2C 

0C0C •" 


DATA 

SCWP WORKSPACE 

1702 

0C2E 

0C30 •" 


DATA 

SCBG START 

1703 






1704 




CLASS 

IFV FIRST CHARACTER AND BRANCH 

1705 




TO APPROPRIATE PROCESSING CODE 

1706 






1707 



Si 

CBG 


1708 

0C30 

C208 


MOV 

INCSC.. INCSC INSIDE OF STRING? 

1709 

0C32 

1666 


•JNE 

QUOTE YES 

1710 

0C34 

0203 


LI 

RESLT.. SVMBL INITIALIZE RESULT POINTER 


0C36 

114A" 




1711 

0C38 

©697 


BL 

*NXCPT GET NEXT CHARACTER CLASS 

1712 

0C3fl 

0221 


AI 

CLSTVP/ -5 ADJUST CLASS TYPE 


0C3C 

FFFE: 




1713 

0C3E 

114D 


•JLT 

ERRORS TOO SMALL - ERROR 

1714 

0C40 

D821 


M0V6 

© JMPTB1 < CLSTVP > .. © JMP1+1 


8C42 

1A2E" 





0044 

0C47 




1.71.5 

0 1 j 4 fc* 

10FF 

JMP1 JMP 

*■ BRANCH ON CHARACTER CLASS 

X i O 

171.7 




SVMBOL PROCESSOR 
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1718 

1719 

1720 

0C48 

04F3 

* 

ALPHA 

CLR 

*RESLT+ 

1721 

0C4A 

04F3 


CLR 

*RESLT + 

1722 

0C4C 

04D3 


CLR 

*RE5LT 

1723 

©C4E 

0223 


AI 

RESLT, -4 


0C50 

FFFC 




1724 

0C52 

0209 


LI 

SCNT, 5 


0C54 

0005 




1725 
1 7 2 6 

0C56 

0A82 

MOVCHR 

SLA 

CHAR, 8 

1727 

1728 

0C58 

DCC2 

CONGET 

MOVB 

CHAR, *RESLT+ 

1729 

0C5A 

0697 


BL 

*NXCPT 

1730 

0C5C 

0281 


Cl 

CLSTVP, 5 


0C5E 

0005 




1731 

0C60 

1106 


JLT 

NOADD 

1732 

0C62 

0281 


Cl 

CLSTVP, 7 


0C64 

0007 





CLEAR RESULT 


RESET POINTER 
SET COUNT 


POSITION CHARACTER 
MOVE INTO SVMBOL NAME 

GET CHARACTER CLASS 
IS CHARACTER ALPHANUMERIC 

NO - OUT OF RANGE 
NO - OUT OF RANGE 


17 33 

0066 

1503 


JGT 

NOADD 

NO - OUT OF RANGE 

1 1' 4 

0068 

0609 


DEC 

SCNT 

VES, TEST FOR ADDING 

1735 

0C6R 

11F7 


JLT 

CONGET 

DON 'T ADD 

1 1** J-6 

1737 

0060 

10F4 

NOADD 

JMP 

MOVCHR 

ADD 

1738 

0C6E 

0605 


DEC 

SCF'T 

DECREMENT SCAN POINTER 

173:9 

8070 

0 2 4 y 


MOV 

SCNT, SCNT 

IS COUNT > 6 

1740 

0072 

1501 


JGT 

MVCNT 

NO 

1741 

1742 

0074 

04C9 

MVCNT 

CLR 

SCNT 

CLEAR COUNT 

1743 

0076 

0509 


NEG 

SCNT 

SET PROPER CHARACTER Cl 

1744 

0078 

0229 


AI 

SCNT, 6 



0O7R 

0006 




1745 

0070 

0889 


MOV SCNT, 0SVMBOL+NWS 

CT+NWSCT PASS TO SVMBOI 


0C7E 

0D3E-" 




1746 

0088 

0203 


L.I RESLT, SVMBL 

POINT TO SVMBOL NAME 


0082 

114A" 




1747 

8084 

0803 


MOV RESLT, 0MA I NW+NWS 

VM+NWSVM PASS TO MAINW 


0086 

0436 •" 




1748 

0088 

05CE 


INCT 14 

TAKE ALTERNATE RETURN 

1 r'49 

0C8R 

038£i 


RTWP 

RETURN 

1758 






1751 



* 

DECIMAL INTEGER PROCES 

SOR 

1752 






1753 



NUM 



1754 

0080 

0002 


MOV CHAR, RESLT 

GET FIRST DIGIT 

1755 

0C8E 

0223 


A I RESLT, ->30 

ADJUST FOR DECIMAL VALUE 


0090 

FFD0 




1756 



NXGET 



1757 

00:92 

Oi697 


BL *NXCPT 

GET NEXT CHARACTER CLASS 

1758 

0094 

0281 


Cl CLSTVP, 6 

IS CHARACTER NUMERIC 


0096 

0006 




1759 

8098 

1302 

* 

JEQ NUMAD 

VES, CONTINUE 

1768 



NUMO 



1761 

00 9 R 

0605 


DEC SCF'T 

NO, DECREMENT SCAN POINTFP 

1762 

01090 

0380 


RTWP 

RETURN 
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JIT'S S 



NUMfiD 


1764 

0C9E 

0222 

AI 

CHAR, — >30 


0CA0 

FFD0 



1765 

0CR2 

0A13 

SLA 

RESLT, 1 

1766 

0CA4 

A083 

A 

RESLT, CHAR 

1767 

0CA6 

0A23 

SLA 

RESLT, 2 

1768 

0CA8 

A0C2 

A 

CHAR, RESLT 

1 1** 69 

0CAA 

17F3 

JNC 

NXGET 

1770 

0CAC 

0414 

BLWP 

*ERR4 

1771 

0CAE 

10F1 

JMP 

NXGET 


1772 

1773 

1774 

1775 


* 

* 

* 

HEX 


VES, ADJUST FOR VALUE 
ADD TO RESULT 


IF NO OVERFLOW, CONTINUE 
TRUNCATION ERROR 
GET NEXT DIGIT 


HEXADECIMAL INTEGER PROCESSOR 


1776 

0CB0 

04C3 


CLR 

RESLT 

CLEAR RESULT 

1777 



hex:*; 




1778 

0CB2 

0697 


BL 

*NXCPT 

GET NEXT CHARACTER CLA: 

1779 

0CB4 

0221 


AI 

CLSTVP, -5 

ALPHANUMERIC? 


0CB6 

FFFB 





1780 

0CB8 

11F0 


JLT 

NUMO 

' NOT ALPHANUMER I C 

1781 

0CBA 

D821 


MOVB 

®JMPTB2< CLSTVP >, 

9JMP2+1 


0CBC 

1A33-" 






0CBE 

0CC1 " 





1782 

0CC0 

10FF 

JMP2 

JMP 

$ 

USE JUMP TABLE 

1783 



RL 




1784 

0CC2 

0282 


Cl 

CHAR, >46 

OUT OF RANGE? 


0CC4 

0046 





1785 

0CC6 

15E9 


JGT 

NUMO 

VES - EXIT 

1786 

0CC8 

0222 


AI 

CHAR, -7 

ADJUST FOR ALPHABETIC 


0CCA 

FFF9 





1787 



Nil 




1788 

0CCC 

0222 


AI 

CHAR, — >30 

ADJUST FOR ASCII 


0CCE 

FFD0 





1789 

0CD0 

0A43 


SLA 

RESLT, 4 

SHIFT CHARACTER VALUE 

1790 

0CD2 

1701 


JNC 

ACHAR 

IF NO OVERFLOW, CONTINl 

1791 

0CD4 

0414 


BLWP 

*ERR4 

TRUNCATION ERROR 

1792 



RCHRR 




1793 

0CD6 

A0C2 


A 

CHAR, RESLT 

ADD CHARACTER VALUE IN 

1794 

0CD8 

10EC 


JMP 

HEXX 

CONTINUE 

1795 



ERRORS 




1796 

0CDA 

0605 


DEC 

SCAT 

DECREMENT SCAN POINTER 

1797 

0CDC 

0420 


BLWP 

0ER2 

SVNTAX ERROR 


0CDE 

0B4E 





1798 

0CE0 

04C3 


CLR 

RESLT 

CLEAR RESULT 

1799 

0CE2 

0380 


RTWP 


RETURN 

1800 







1801 



* i 

CLASS IFV CHARACTER 


1802 







1803 



NXCHflR 




1804 

0CE4 

D0B5 


MOVB 

+SCPT+, CHAR 

GET CHARACTER 

1805 

0CE6 

0982 


SRL 

CHAR, 8 

RIGHT JUST IFV 

1806 

0CE8 

0282 


Cl 

CHAR, >09 TAB 

7 


0CEA 

0009 





1807 

0CEC 

1682 


JNE 

NXCH2 

NO 

1808 

0CEE 

0202 


LI 

CHAR, >20 

VES - SET TO BLANK 
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0CF0 0020 

1808 NXCH2 

1810 0CF2 0282 
0CF4 0020 

1811 0CF6 11F1 

1812 0CF8 D062 
0CFA 019A 

1813 0CFC 0981 

1814 0CFE 045B 

1815 * 

1816 * 

ly l f mj 

1818 QUOTE 


1822 

1823 

1824 

1825 


1829 

1830 

1831 

1832 
1333 

1834 

1835 

1836 
lb'37 

1839 

1840 

1841 

1842 

1843 

1844 

1845 


Cl CHAR, >20 
JLT ERRORS 


IS CHARACTER LESS THAN >20 
VES 


MOVES @CL ASS->20 < CHAR > , CLSTVP GET CLASS 


SRL CLSTVP, 8 
RT 

QUOTED STRING PROCESSOR 


RIGHT JUST I F V 
RETURN 


0D00 

0697 


BL 

*NXCPT 

0D02 

8001 


C 

CLSTVP, QTCLS 

0D04 

1601 


JNE 

NQ 

0D06 

069A 


BL 

*TQC 



NQ 



0D88 

C0C2 


MOV 

CHAR, RESLT 

0D0A 

0697 


BL 

*NXCPT 

0D0C 

8001 


C 

CLSTVP, QTCLS 

0D0E 

1601 


JNE 

NQ2 

0D10 

069A 


BL 

*TQC 



NQ2 



0D12 

0A83 


SLA 

RESLT, 8 

0D14 

E0C2 


SOC 

CHAR, RESLT 

0D16 

0380 


RTWP 




TQIJOT 



0D18 

C30B 


MOV 

RTN, SAVE 

0D1A 

0697 


BL 

*NXCPT 

0D1C 

8001 


C 

CLSTVP, QTCLS 

0D1E 

1302 


JEQ 

OQ 

0D20 

0645 


DECT 

SCPT 

0D22 

04C2 

l*“l l~l 

CLR 

CHAR 

0D24 

045C 

IJ 

B 

*SAVE 


* 

* 

* 

DOLLAR 


l.b‘46' 

0D26 

C0E8 

MOV 


8D28 

0430 


1847 

0D2R 

C820 

MOV 


0D2C 

04 2 E" 



0D2E 

0F2R 


lfci4fc{ 

8D.70 

0380 

RTWP 


GET NEXT CHARACTER CLASS 
IS THIS A QUOTE 
NO 

VES - ADDITIONAL QUOTE? 

NO, MOVE CHARACTER 
GET NEXT CHARACTER CLASS 
TEST FOR QUOTE 
NO 

VES - ADDITIONAL QUOTE? 

LEFT JUSTIFV 
PLACE IN RESLT 
RETURN 


GET NEXT CHARACTER CLASS 
IS IT A QUOTE 
VES - EXIT 
NO, END OF STRING 
CLEAR CHARACTER 

VES, RETURN 

DOLLAR SIGN PROCESSOR 

OMA I NW+PC+PC, RESLT GET PC VALUE AND RELOC 

0 M A I NW+REL.HBS+RELABS, 0 E X W P + R L V A L + R L V A L 

RETURN 



p 


RASM, 


MIKA 9 

90 V2L1 1 
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PRGE 

MBOL 

TABLE 

ENTRV 

VALUES 94892. 

5-99Q1** 


1851 









* SYMBOL TABLE ENTRY REGION 


1854 



•T* 

SYMBOL 



1855 

0D32 

0000 

DRTR 

0 R0 

SVMPTR 

1856 

0D34 

0000 

DATA 

0 Ri 

SVMN0, 

1857' 

0D36 

0000 

DATA 

0 R2 

FLAGS 

1858 

8D38 

0000 

DATA 

0 R3 

SYMNM 

1859 

0D3A 

0000 

DATA 

0 R4 

NSVM 

1 y 6 y 

0D2C 

0000 

'v’L DATA 

0 R5 

VALUE 

1861 

0D3E 

0000 

DATA 

0 R6 

NWSCT 

1862 

0D40 

0000 

DATA 

0 R? 

SCNT2 

1863: 

0D42 

0000 

DATA 

0 R8 

NSBIT 

1864 

0D44 

0000 

DATA 

0 R9 

GSHOLD 

1865 

0D46 

0000 

DRTR 

0 R10 

0SHLD2, 

1. 866 

0D48 

0000 

DRTR 

0 Rll 

RETURN 

1867 

0D4R 

00010 

DRTR 

0 R12 

OUTS 

1868 

0D4C 

0000 

DRTR 

0 R13 

OLD WP 

1869 

0D4E 

0000 

DRTR 

0 R14 

- OLD PC 

1870 

0D50 

0000 

DRTR 

0 R15 

OLD SR 


0050 


COUNT 


IOPARM 
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,9 7/ 7fc. 


1879 

1.880 

1881 

1.882 

1883 

1884 





:+ 

1.887 

•+ 

1.8U8 

:+ 

•1 ;:::;C|Q 

: + 

1900 


1.901. 

•*!• 

1902 


1903 

:+ 

1904 


1.905 

:+ 

1.906 

:+ 

•i Q “7 

a 

J.. i 

*T 

1808 

:+ 

1909 

■+ 

J. 17 .,1, U 

•+ 

1.911. 

:+ 

1.912 

:+ 

:19:1s 

:+ 

1.9:14 

i 

19:15 

•i Q-i !-• 

t 


TITLE: 

REVISION: 

COMPUTER: 
ABSTRACT : 


* CALL I NG 
+: 


ADDITIONAL 


SENTRV 

SYMBOL TABLE ENTRY VALUE 
LJj./fejlr 1 ’ I - ' 4 
ORIGINAL 
: 990, ASSEMBLY 

FOUR ROUTINES ARE USED TO PROVIDE: 

1. CHARACTER COUNT FOR SYMBOL NAME 

2. SYMBOL FLAG VALUE 

3. POINTER TO SYMBOL NAME 

4. POINTER TO VALUE AND VALUE 
TWO DUMMY ENTRY POINTS ARE CREATED 
FOR ENTRY FROM OUTSIDE THE WORKSPACE. 

SEQUENCE : 

INSIDE WORKSPACE: 

BL. 0GTSCT 
BL 0GTSFL 
BL 0GTSNM 
BL 0GTSVL 
OUTSIDE WORKSPACE: ' 

BL.WP 0GETSCT 
BL.WP 0GETSVL. 

AL NOTES: 


GTSCT 

GTSFL 

GTSNM 

GTSVL 


WORKSPACE 


< SHARED WITH SRCSYM, 
SYMCLR, AND REFDEF ;> 


GTSNM CALL 
A SYMBOL T 
VALUE 


GTSVL 


J...S GTSNM 


TABLE NODE APPEARS AS FOLI..OWS : 


VALUE 


VALUE 


,r< t UK r UK r K. I i 

M 8 W B M B 

0 L. 0 FLAGS FLAGS 

FLAGS 

WML RE. FLAGS ARE BROKEN DOWN TO A FLAG VALUE If 

BITS 8-12 AND A SVMBOL COUNT IN BITS 13 15. Ti 

C 0 U N T W I L L C A U S IE Ft M 0 D I F I C A T‘ 1 0 N 0 F‘ 7 H IE N U 1*1 B iE R 


OF BVTES NEEDED TO 
THE SVMBOL NAME AND 
FlLWAVS START ON A W 
THE FLAG VALUE IS A 
8 DEF, RE!. • EXTDEF 

1 DEF, REL, RECDEF 

2 DEF, AES, EXT DEF 

DEF, ABS, RECDEF 

EXT DEF 


STORE THE SVMBOL TABLE’ ENTRV 
D, THE SVMBOL VALUE WILL 
WORD BOUND ARV. 

A CODE AS BELOW : 

F, RECDEF 


2 DEF, ABS, EXTDEF. 

X DEF, ABS, RECDEF 

4 DEF', REL, EXTDEF 

5 DEF", REL 

E DEF, ABS, EXTDEF 

7 DEF, ABS 

8 DXOP 

9 UNREF, EXTDEF 

10 REF, EXTDEF 

1:1 REF, UNDEF 

12 EXTREF, REFABS 

IS EXTREF, REFREL 

WHERE : 


RECDEF 
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RASH 


M I RA9 

30 V2L 

1 1.7:44:10 

MBOL* 

TABLE 

ENTRY 

VALUES 

9 4 8 9 2 5 - 9 9 0 1 y y 

1926 



Y 

DEF 

1927 



Y 

PEL 

1928 



Y 

EXTDEF 

1.929 



Y 


1978 



Y 

BBS 

1971 



Y 

DXOP 

1972 



Y 

UNREF 

1977 



Y 

UNDEF 

1974 



Y 

REF 

1 975 



Y 

EXTREF 

1976 



Y 

REFABS 

1937 



Y 

REFREL 

1978 



Y 


1979 

• | Ci t -1 tTl 



Y 

GET SYMBOL FL 

.y H* rj 

1941 



Y 

GTSFL 


1942 

0D52 

0090 


MOV ySVMPTR 

1947 

0D54 

0872 


S R A F L. A G S , 7 

1.944 

0D56 

8242 


AND I FLAGS, > 


0D58 

001F 



:1 945 

0D5A 

0458 


RT 

1. 9 4 6 



Y 


1947 



Y 

GET SYMBOL CM 

1948 



Y 


1949 



GETSCT 


1.950 

0D5C 

0D72 •' 


DATA SYMBOL 

1951 

0D5E 

0D60 


DATA GTSCT 2 

1952 



GTSCT 2 

1957 

0D68 

IA J*\ iiT •“» 

06 A8 

1 4 *j i *» i* »' •* 


BL 0GTSCT 

1954 

K* I..* 1 D 

0 D 4 

Kl i.J O r> 

0780 


RTWP 


197/76 


DEFINED 

RELOCATABLE VALUE 
EXTERNALLY DEFINED < FORWARD REFS 
SATISFIED BUT NOT RESOLVED > 
ABSOLUTE CODE 

DEFINED THROUGH DXOP DIRECTIVE 

UNREFERENCE 

UNDEFINED 

REFERENCED 

DECLARED AS EXTERNAL REFERENCE 
LAST REFERENCED IN ABSOLUTE CODE 
LAST REFERENCED IN RELOCATABLE COD 


GET FLAGS WORD 
SHIFT VALUE 
SEPARATE OUT FLAGS 


GTSCT 


1.953 
1959 
1 968 
196:1 
1 9 b 2 


0D66 
0D 63 
0D6A 
0D6C 


C050 

0241 

0007 

045B 


Y 

Y 

Y 

GE’ 


MOV ySYMPTR, COUNT 
AND I COUNT, 7 

RT 

OFT SYMBOL VALUE 


RETURN 


W U R K S P A C E F‘ 0 1 N T E. R 
START 

DUMMY CALL.. 

RETURN 

GET COUNT WORD 
SEPARATE OUT COUNT 

RETURN 


1 C< i;”' 

0D6E 

0D72 •' 

DA I A 

SYMBOL 

WORKSPACE 

1964 
1 9 6 5 

0D78 

0D72 

DA 1 A 

3TSVL2 

GTS VI... 2 

‘-/I HR. i 

1 9 6 

0D72 

0D74 

86 A 0 
0D78 

BL 

0GTSVL 

DUMMY CALL 

1367 

0D76 

0788 

RTWP 


RETURN 

1969 

0D78 

C24B 

..1 f v I.... 

MOV 

1.1 , GSHOL.D 

SAVE RETURN 

1970 

0D7A 

0D7C 

06 A 0 
0034 -* 

BL 

@GT SIMM 

GET SYMBOL NAME 

1971 

0D7E 

0647 

DECT 

S'tTIIMM 

POINT TO SYMBOL VAi. 

:1 972: 

0D30 

Cl 57 

MOV 

*SVMf#l, VALUE 

GET SYMBOL VALUE 

±9™ 


!;'* «:■!• 5 9 

B 

Y 

y GET S’ 

^UbHuLD 
VI'IBOL NAME 

RETURN 


D \D 


RflSM 

* 
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1 
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MBOL 

TABLE 

ENTRV VALUES 

94892 

5—9901 : +-+; 


1976 


'¥ 




1977 


GTSNM 




1.9 79 

0D34 

C28B 

MOV 

li, GSHLD2 

SAVE RETURN 

1979 

0D86 

0D88 

06R0 
0 r» hs ■' 

BL . 

0QTSCT 

GET SVMBOL COUNT 

1980 

0DSA 

C0C0 

MOV 

SVMPTR, SVMNM 

POINT TO SVMBOL NAME 

1981 

0D8C 

60C1 


COUNT, SVMNM 

POINT TO BVTE OFFSET 

1982 

0D8E 

0243 

RNDI 

SVMNM, >FFFE 

SET AT WORD BOUNDARV 


0D90 

FFFE 




1983 

0D92 

045 A 

8 

*GSHL_D2 

RETURN 
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2035 

0DBF! 

06R0 

BL 

0GTSFL 

FOUND - GET FLAGS 


ODBC 

0052 ■" 




2036 

20.5 f' 

2039 

0DBE 
0i DC 10 

05CE 

0380 

INCT 

RTWP 

:+: 

14 

TAKE ALTERNATE RETURN 
RETURN 

2840 

2041 



* LOOK 

AT NEXT SVMBOL 


2042 



NOTSAM 



2043 

0DC2 

06R0 

BL 

0GTSVL 

POINT TO LAST WORD OF ENTR 


0DC4 

0078 



2044 

2045 

0DC6 

0DC8 

0603 

C003 

OEC 

MOV 

SVMMM 

SVMNM, SVMPTR 

POINT TO FIRST BVTE OF NEX 
SET AS POINTER 

2 0 4 6 

0DCH 

0588 

I NC 

NSBIT 

INCREMENT SVMBOL NUMBER 

2047 

0DCC 

10E9 

,TMP 

SVMCHK 

GET NEXT SVMBOL 

22149 



* CREATE MEW ENTRV 


2050 

205:1 

2052 

0DCE 

0DD0 

0226 

0058 

EX I TNG 

R I 

NWSCT, >58 

SET FLAG VALUE 

2053 

0DD2 

c*\ pi r*j ,* i 

0202 
0 0 R 

LI 

h LEGS.. 1:1 


2054 

2055 

rj Is Is ' 

0DD6 

0DD8 

0DDR 

C406 
06R0 
0D84 ’ 

MOV 

BL 

NWSCT, *SVMPTR 
0GTSNM 

MOVE INTO NEW ENTRV 
POINT TO START OF NAME 

2056 

0DDC 

Cl 20 

MOV 

0NSMBL, NSVM 

POINT TO NAME 

1”)' )T*J "J7 

©.DDE 

0436 -■ 




2059 

0DE0 

DCF 4 

n' U t 

MOV 8 

*NSVM+, *SVMNM+ 

MOVE IN NAME 

2059 

0DE2 

060:1 

DEC 

SVMNO 

2860 

8DE4 

15FD 

■JGT 

END 2 


2061 

0 DEE 

06R0 

BL 

0GTSVL 

POINT TO LAST WORD IN ENTR'- 


0DE8 

0D78 **’ 



2062 

0DER 

0603 

DEC 

SVMNM 

POINT TO NEXT ENTRV 

2063 

0DEC 

C803 

MOV 

SVMNM, 0ENOST 

bET Rb END uF i RBLE 


UDEE 

0B38 •’ 



2064 

0DF0 

0DF2 

06 R0 

•*j •'( R p 

BL 

0LIMCHK 

CHECK OVERFLOW L I M I IS 

2065 

0DF4 

0380 

RTWP 


RETURN 


c 
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RASM 


MIRR990 V21 1 1 

ERE 

:V f MTAB 

JF RES FWD REFS 9 

2068 


* TITLE: 

2869 



2076 

0 j .1. 


* REVISION: 

2072 


* COMPUTER: 

2873 


+ ABSTRACT: 

2874 



2875 



2076 



2077 



2078 


•+: 

2079 



2080 



2081 


* CALLING S 

2082 



2083 


* ADD IT IONA 

2084 


* 

2085 



2086 



2087 


:+: 

2088 


:f: 

2089 

2090 



2091 

2092 



2093 



2094 


:+: 

2095 



2096 



2097 


+ 

2098 


SVMCLR 

2099 

0DF6 

0D22 DRTR 

2:100 

0DF8 

0DFR*" DRTR 

2:10:1 

Of 


SVMCBO 

♦X* 

•**:. .1 r:> 


* POINT 

2:105 

0DFR 

C020 MOV 


0DFC 

1:1.54 •- 

2106 

0DFE 

0208 LI 


0 E 0 0 

0001 

21.07 

2108 


* FIND 

2109 



2:11.0 
VI - i -I 


SCHK 

/* Ci i~i r*. i 


yj ! : :J 

0E04 

iMbrlH DL 

2:1.12 

0E06 

ilk CT O 

0805 MOV 

-2 1 1 3 

i:li i', i;„i r;i 

0E0R 

...» U r. 

06R8 BL. 


0E0C 

0D52 •" 

211 4 

0E0E 

0282 * 01 


0E10 

0003 

2-1 -15 

0F1.2 

1.504 JGT 


197/76 


SVMCLR 

CLEAR FORWARD REFERENCED SYMBOLS 

03/01/74 

ORIGINAL 

990, ASSEMBLY 

THE SYMBOL TABLE IS SEARCHED FOR RECENTLY 
DEFINED SYMBOLS, I. E. , SYMBOLS WHICH HAD 
BEEN FORWARD REFERENCED BUT WHOSE REFERENCES 
HAVE NOT, AS YET, BEEN RESOLVED. FOR EACH 
SUCH SYMBOL, IT CALLS FI /FRF TO RESOLVE ITS 
REFERENCES AND THEN MODIFIES ITS SYMBOL TABLE 
FLAG CODE SO THAT IT IS NO LONGER CONSIDERED 
AS RECENTLY DEFINED. 

IQ HENCE : 

BLWP ©SVMCLR 
... NOTES: 

WORKSPACE = SYMBOL < SHARED WITH SENTRY, SRCSYM 

AND REFDEF > 

THIS ROUTINE IS ONLY CALLED WHEN THE FLAG 
NEWFRF IS SET SIGNIFYING THE EXISTENCE OF 
A RECENTLY DEFINED SYMBOL IN THE SYMBOL 
TABLE AND WHEN THE FLAG REGISTER BYTFL OF 
WORKSPACE OTB WP IS CLEAR, SIGNIFYING THAT 
THE OBJECT CODE LAST PUT OUT COMPLETED A 
WORD OF CODE. THESE TWO FLAGS ARE CHECKED 
EACH TIME BEFORE A RECORD IS READ. THE 
COUNT IN NSBIT IS USED AS THE SYMBOL. NUMBER 
FOR COMPARISON WITH ENTRIES IN THE FORWARD 
REFERENCE TABLE. 

ROUTINES CALLED: GTSVL, GTSFL, FI /FRF 

SYMBOL WORKSPACE 

SVMCBQ START 


POINT TO THE START OF THE SYMBOL TABLE 
MOV ©SYMTAB, SYMPTR POINT TO SYMBOL TABLE 
LI NSBIT, 1 MARK AS FIRST SYMBOL 

FIND AND PROCESS RECENTLY DEFINED SYMBOLS 

BL ©GTSVL GET SYMBOL VALUE 

MOV VALl IE, ©FXFWF'+SVAL+SVAL 

BL. ©GTSFL GET SYMBOL FLAGS 

Cl FLAGS, 3 IS SYMBOL RECENTLY DEFINED 

•JGT NX1 NO 


PAGE 0057 



PXRASM M I R A990 

CLEAR SVMT AB OF RES FWD 


21.16 

0E1 4 



0E16 

15E6 

2117 

0E18 

B420 


HEIR 

17DC 

2118 



21:19 



2128 



2121 



2122 

0E1C 

8588 

2122 

0E1E 

0602 

2124 

0E20 

CG02 

2125 

0E22 

8800 


0E24 

0028 • 

21 26 

0E26 

15ED 

2127 

0E28 

04E8 


0E2A 

0060 *' 

2128 

0E2C 

0280 


V.iiLi 17 : 44 : 10 1.97X 

RETS 948925-9961%+ 


BLWP 

1 0FIXFRF 

AB 

0BL..ANK, +SVMPTR 

FIND 

NEXT SYMBOL IN : 

INC 

NSBIT 

DEC 

SVMNM 

MOV 

SVMNM, SYMF'TR 

C 

SVMPTR, 0ENDST 

JGT 

SCHK 

CLR 

ANEW FRF 

RTWP 



76 


VEs, FIX UP FWD REFS 
CLEAR AS REC DEF-'D 


SVMBOL TABLE 


INCREMENT SVMBOL NUMBER 
POINT TO NEW SYMBOL 
GET NEW SVMBOL 
DONE? 

NO 

YES, CLEAR RESOLVED FLAG 
RETURN 


c 


o 




HR ASM 

4 

M I RR9 

90 V2L.1 1 

7:44: 10 197/76 

PAGE 0058 

UTPUT 

EXT RE 

: :fs and 

DEES 94892 

5-9901** 


2131 



* TITLE: 

REFDEF 


c... 1 «n„ 




OUTPUT EXTERNAL 

REFS AND DEFS 

-'I- 



* REVISION: 

03/01/74 


1 4 




ORIGINAL 


2135 



* COMPUTER: 

990, ASSEMBLY 


2136 



* ABSTRACT: 



21.5 r 




SYMBOL TABLE IS 

EXAMINED. EXTERNALLY REF 'D 

Slijs-O 




OR DEF-'D SYMBOLS 

ARE PLACED INTO THE OBJECT 

2l„<y 



* 

CODE AND UNDEFINED SVMBOLS R RE PRINTED IN THE 1 

2140 




UNDEFINED SYMBOL 

S LIST. 

2141 



•+ : CALLING S 

EQUENCE : 


2142 




BLWP ©REFDEF 


2:143 



* ADDITIONAL NOTES: 


2144 



:+• 

WORKSPACE = SVMBOL < SHARED WITH SENTRV, 1 

2:145 





SRCSYM, S VMCLR > j 

2:146 




THE SYMBOL TABLE 

FLAG VALUE IS USED AS A JUMP 1 

2147 




TABLE <FTAB> INDEX 1 

2:148 




ROUTINES CALLED: 

GTSFL, GTSVL, B INHEX, GTSNM, 

2:14.9 



* 

CL. ROB J, PRINT 


2:150 



REFDEF 



2:15:1 

0E2E 

0D32 •" 

DRTR 

SVMBOL 

W U R K b P R C E 

2152 

0E30 

0E32 ”■ 

DATA 

RFDFBQ 

START 

2:153 
;>• j 54 



RFDFBQ 

*+■ 



21 55 



* POINT 

lU THE bTRRT OF THE SVMBOL TABLE 1 

2156 






2157 

0E32 

0020 

MOV 

©SYMTAB, SVMPTR 

POINT TO SYMBOL TABLE 


0E34 

1154 




21 58 

0E36 

0286 

LI 

NWSCT, 5 

SET S V M B 0 L S -- 0 N — C A R D COi iNT 


0E38 

0005 




2:159 

0E3R 

020C 

L I 

OUTS, OBJRCD 

POINT INTO OBJECT BUFFER 


0E3C 

0078 •" 




2168 



NWSYM2 



2:161 



* 



2:162 

2:163 



* WHILF 

SVMBL TABLE HAS 

RN ENTRV 

2164 

0E3E 

8800 

c 

SVMPTR, 0ENDST 



0E40 

0838 •- 




2165 

0E42 

:1236 

JLE 

•J.* 

NXSVMO 


2168 



* BRANCH ACCORDING TO FLAG 


0E44 
E 4 6 

06 R0 
0D52 •“ 

BL 

0GTSFL 

GET SYMBOL FLAGS 

2:170 

06.48 


MOVE: 

©FT AB < FLAGS > , © JMPF+1 


0E4A 

0F4C 

1R50 •- 

piPd p / 




%% 

0E4E 

18FF 

JMPE JMP 

:+•- 

1 

JUMP ON FLAG VALUE 




: +* PRGCES 

:S EXTERNAL DEF 


2175 



FHTDFR 



21 7 & 

0E50 

0208 

L I 

NSBIT, >3500 

MARK AS RELOCATABLE DEF 


0E52 

3580 





o 
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JTPUT 

£xt refs and 

DEFS 948925 

i"~9901 : + :: + : 


2177 

0E54 

1002 

JMP 

DROUT 

PLACE IN OBJECT BUFFER 

2178 



EXTDFA 



2179 

0E56 

0208 

LI 

MSB IT, >2680 

MARK ABSOLUTE DEF 


0E58 

7600 




2188 






2181 



* OUTPUT OBJECT 


2182 






218.7 



DROUT 



2184 

0E5R 

06R0 

BL 

0GTSVL 

GET SVMBOL VALUE 


0E5C 

0D78 **’ 




2185 

0E5E 

DF08 

MOVB 

MSB IT, +0UTS+ 

PLACE TAG IN OBJECT BUFFER 

2186 

0E60 

0E62 

C80G 
0E6A •' 

MOV 

OUTS, 0SVMLOC 

POINT INTO OBJECT BUFFER 

2187 

0E64 

0420 

BLWP 

0B INHEX 

CONVERT TO ASCII 


0E66 

0BE0 *’* 




2188 

0E68 

0D3C 

DATA 

VL 

VALUE OF SVMBOL 

2189 

0E6A 

0000 

SVMLOC DRTR 

0 

LOCATION IN OBJECT BUFFER 

2190 

0E6C 

022C 

A I 

OUTS, 4 

POINT TO NAME AREA 


0E6E 

0004 




2191 

0E70 

0207 

LI 

SCNT2, 6 

SET CHARACTER COUNT 


0E72 

0006 




2192 

2197 

0E74 

DF20 

LPOT 

MOVB 

0 BLANK, *GUTS+ 

BLANK OUT NAME AREA 


0E76 

1.7DC"' 




2194 

0E78 

0607 

DEC 

SCNT2 


2195 

0E7A 

1.5FC 

JGT 

LPOT 


2196 

0E7C 

022C 

R I 

OUTS, ~~6 

RESET OBJECT POINTER 


0E7E 

FFFR 




2197 

0E80 

M Er O '“I* 

06R0 

r. O 

BL 

0GTSNM 

POINT TO SVMBOL NAME 

2198 

0E84 

MU 0*4 

0287 

L I 

SCNT2, 6 

SET CHARACTER COUNT 


0E86 

0006 




2199 



LP0T2 



2200 

|7*j p Cl; O 

DF27 

MOVB 

*5VMNM+.. *OUTS+ 

MOVE IN SVMBOL NAME 

220:1 

0E8R 

8607 

DEC- 

SCNT2 


2202 

0E8C 

0601 

DEC 

COUNT 


2207 

0E8E 

15FC 

JGT 

LP0T2 


2264 

0E90 

R787 

R 

SCNT2, OUTS 

ADJUST OBJECT POINTER 

2205 

0E92 

0606 

DEC 

NWSCT’ 

ROOM ON CARD? 

2206 

0E94 

1508 

JGT 

NXSVM 

VES - GET NEXT SVMBOL 

220?" 

0E96 

C80C 

MOV 

OUTS, 0GTWP+OBJPT 

+OBJPT NO 


0E98 

16 EE y 




2208 

0E9R 

0420 

BLWP 

0CLROBJ 

CLEAR OBJECT BUFFER 


0E9C 

1?BE' 




2209 

0E9E 

0ER8 

0206 

0005 

LI 

NWSCT, 5 

RESET SVMBOL— ON-CARD COUNT 

2210 

0ER2 

0200 

LI 

OUTS, OB JR CD 

RESET OBJECT BUFFER POINT'E 


ME A 4 

0078 *'■ 




2211 






2212 



* EXAMINE NEXT SVMBOL IN 

: + : 

SVMBOL TABLE 

2214 

221 5 

0ER6 

06R0 

NXSVM 

BL 

0GTSVL 

POINT TO LAST WORD IN ENTR 


0ER8 

0D78 •' 




2 2 1 6 

0ERR 

0607 

DEC 

SVMNM 

POINT TO NEXT SVMBOL 
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OUTPUT £XT REFS FIND DEFS 948925-9901** 



2 2 1. 7 t:!* E ft C 

2218 0EftE 
221.9 



2223 8EB0 
0EB2 

2224 0EB4 

2225 8EB6 
8EB8 

2228 0EBfl 
0EBC 



h E B R 


2233 0EC0 
0EC2 

2234 0EC4 
223:5 

223-8 0EC8 
0EC8 
2237 0ECR 


2242 0EGC 
0ECE 
2243: 0ED0 

0ED2 
4 4 tlE!D4 
2245 

2248 8ED8 

2247 0ED8 

2248 0EDR 

2249 0 EDO 
REDE 

2250 0EE0 
0EE2 

2251 0EE4 
0EE8 

2252 0EE8 


C003- MOV SVMNM, SVMPTR 

1007 JMP NWSVM2 

* END. OF WHILE LOOP 

NXSVMO 

9288 Cl NWSCT, 5 HNV OBJECT UNPUNCHED? 

0005 

13:04 JEQ END IT NO - EXIT 

C80G MOV OUTS, 0OTWP+OBJPT+OBJPT VES 


18EE-* 


0420 

17BE-" 

END. IT 

BLWP 

0CLROBJ 

03:80 


RTWF* 




F'ROCE 

SS EXTERNAL REF 






EXTRFR 



0208 


LI 

NSBIT, >3300 

10CA 

EXTRFA 

JMP 

DROUT 

0208 

3:408 


L..I 

NSBIT, >3400 

18C7 


•JMP 

DROUT 


* PRO 

CESS 

UNDEFINED SVMBOL 


‘T* 

UNDSM 



08A0 
0D84 •- 


BL 

OGTSNM 

0208 
i7.i .1 p 


LI 

NSBIT, INSBUF-1 

n., J.. i o 

C288 

IJNDL.P 

MOV 

NSBIT, I OP ARM 

DE33: 


MOVB 

*+ : SVMNM+, *NSB I T> 

0801 


DEC 

COUNT 

15FD 


-JGT 

UNDLP 

DE20 

ivi*1 ChC* •*' 


MOVB 

OLF, * : NSB I T+ 

t 1 l, r M J 

D820 


MOVB 

OCR, *NSB I T 

*r:r» J. 

0420 


BLWP 

OPR I NT 

lyuE * 
10DE 


JMP 

NXSVM 


CLERR OUT OBJECT BUFFER 
RETURN 

MARK EXT REF IN RELOC CODE 
PLACE IN OBJECT BUFFER 
MARK EXT REF IN RBS CODE 
PLACE IN OBJECT BUFFER 

GET SVMBGL NAME 
POINT INTO PRINT LINE 
SET UP I/O ROUTINE PARM 
PLACE SYMBOL NAME IN LINE 

PLACE LINE FEED IN LINE 
PLACE CARRIAGE RETURN IN LINE 
PRINT SVMBOL NAME 
GET NEXT SVMBOL 
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2292 

2293 

4 i^j. 
■“;» Q cr 

2*296 

2297 

2308 

238 : 1 . 

2382 

2383 
2304 

2385 

2386 






* TITLE: OPSRCH 

* SEARCH OPERATOR AND DIRECTIVE TABLE 

* REVISION: 07/01, ••■'74 

* ORIGINAL 

* COMPUTER : 990.. ASSEMBLY 

* ABSTRACT: 

* THE OPERATOR MNEMONIC AND DIRECTIVE TABLE IS 

* SEARCHED FOR THE SYMBOL NAME IN THE OPERATOR 

* FIELD OF A LINE. IF THE SYMBOL IS NOT FOUND, 

* CONTROL WILL RETURN TO THE INSTRUCTION 

* IMMEDIATELY FOLLOWING THE CALL. IF THE SYMBOL 

:+: FOUND, THIS INSTRUCTION WILL BE SKIPPED 

* UPON RETURN TO THE CALLING ROUTINE. IF FOUND, 

* THE CODE CLASS OF THE SYMBOL WILL BE DETERMINED 

* CALLING SEQUENCE: 

* BL.WP OGPSRCH 


* NOT- FOUND- INSTRUCT I ON 

* FOUND- INSTRUCT I ON 

* ADDITIONAL NOTES: 

* WORKSPACE = OPSWP UNSHARED > 

* PN OPERATOR MNEMONIC AND DIRECTIVE TABLE ENTRY 

* CONSIST OF THREE WORDS. THE FIRST TWO WORDS 

* CONTAIN THE SYMBOL NAME CLEFT-JUSTIFIED." /FRfi- 

* FILLED::-, AND THE THIRD WORD IS DIVIDED, INTO* 

* TWO FIELDS. THE FIRST TWELVE BITS OF THE WORD 

* <0-H> HOLD THE INSTRUCTION FIELD FOR A 

* MNEMONIC AND A BRANCH NUMBER FOR A DIREfTT'-'F 

* THE RIGHTMOST FOUR BITS OF THE WORD SIGNIFY A 

* PROCESSING TYPE. THE THIRTEEN PROCESSING TYPES 

* ARE : 



NUM 

ACTION 

FMTS 



0 

NO ACTION 

NOP, \ 

1 1 1 


1 

TWO GENERAL ADDRESSES 


I 

* 

2 

ONE GENERAL ADDRESS 


:i: v 



BYTE EXPRESSION 


1 1 

* 

4 

REGISTER ADDRESS, IMMEDIATE VALUE V 

MU 


5 

REG I STER ADDRESS 


V I 


& 

GENERAL ADDRESS, REG I STFR ADDRF 

c; c; 

j. j. I 


r* 

JUMP VALUES 


i F 


8 

IMMEDIATE VALUE 

i lt 

1 1 1 


9 

R E G I S TER A D D R E S S .. S H I F T C 0 U N T 


t M i 


A 

DIRECTIVE - SEPERATE PROCESSING 


;:;= 


B 

RETURN PSEUDO-OP 


R { 


c 

MAP VALUE 



+ 






THE 

DIRECTIVE BRANCH NUMBERS ARE IN THE 

LEFT 



MOST 

BYTE AND THEIR BRANCH VALUES ARE: 



* 

1 

AORG 

BES- 



* 

* 

4 

OV TE 




5 

DATE! 




6 

DEF 



■A< 

r* 

DORG 
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309 



:+ 



8 DXOP 


318 



:+ 



9 END 


311 



:+ 



A EQU 


312 



:+ 



B EVEN 


313 





C IDT 


314 



* 



D LIST 


315 





E PAGE 


316 



*: 


F REF 


317 



:+'■ 


10 RORG 


318 



:+ 



11 TEXT 


319 



:+ 



12 TITL 


320 



:+ 



13 UNL 


321 



H* 





322 



:+ 



THE OPERATOR 

TABLE IS SEARCHED THROUGH THE USE 

3 2 £ 



:+ 



OF A LINEAR : 

SEARCH. 

3 2 4 



OPSRCH 




325 

0EEFI 

1.1B0 •' 



DATA 

FRWP 

WORKSPACE 

326 

0EEC 

0EEE'-' 



DATA 

OPSBG 

START 

p "7 



QPSBG 




q 

0EEE 

0 4 U B 



CLR 

BRANCH 

'CLEAR BRANCH 

329 

0EF0 

0207 



LI 

OPPTR, OPTBL 

POINT TO START OF TABLE 


0EF2 

01FA " 






330 



* 





231 





COMPARE SVMBOL TO TABLE ENTRV 




•+ 

E 

ORLOP 




334 

0EF4 

8DE8 



c 

OWORDKOPWRD 

>,*OPPTR+ IS FIRST WORD THE SAME 


0EF6 

0000 






«**7 T : r~J 

UEF8 

160B 



•JNE 

BNXOP1 

NO 

1336 

0EFR 

8DE8 



c 

0WORD2 < OPWRD 

•*, *QPPTR+ IS W0RD2 THE SAME 

*7; ~7 “7 

Ln. r L- 

0EFE 

U004' 

1.609 



JNE 

BNX0P2 

NO 

~ o 

0F60 

p i.~r p 



MOV 

H-OPPTR, opcodi 

E GET OPCODE 

239 

0F02 

C2.CS 



MOV 

OPCODE, BRANCH GET BRANCH TYPE 

340 

0F 04 

0249 



RND I 

OPCODE, >FFF0 

SEPARATE 


0F06 

FFF0 






:34:1 

0F 08 

i*!*l C l /l L J 

024 B 

i i*T« c 



HMD I 

BRANCH, >F 

GET BRANCH TYPE 

242 

0F 0C 

l : ;.i 1;* 1 kI f~ 

05 CE 



I NOT 

14 

TAKE ALTERNATE RETURN 

~ , j ..j 

0F 0E 

0380 



RTWP 


RETURN 

345 



:+ 


POSITION POINTER “H 

~J NEXT OPERATOR 

346 



H- 





347 



E 

NX DPI 




348 

0F1.0 

05C7 



I NOT 

OPPTR 

ADJUST POINTER TO 

349 



BNX0P2 




350 

0F12 

05 C 7 



I NOT 

OPPTR 

NEXT OPERATOR 

351, 

0F14 

fSC’-i LT 

0287 



C I 

OPPTR, OPTEND 

ARE WE PAST THE TABLE 

» ir; 

OF 18 

l;i;i *4 2 ‘ 
1 2ED 



JLE 

BOPLOP 

NO - CONTINUE SEARCH 

* 3 3 

0F1A 

0380 



RTWP 


RETURN - NOT FOUND 


o 



skHSII 


1*1 1 R F*} 9 9 8 V 2 1. 

-i i 

7: 

■:'pppq 

91 ON E\ 

/BLURT OR 

94892' 

5~ 

2356 

0F1.C 

0000 EXWP 

DATA 

0 

2357 

0F1E 

0000 

DftTFf 

0 

cr 

0F20 

0000 

DflTR 

0 

2359 

0F22 

0000 EXWF2 

DflTR 

0 

2360 

0F24 

0000 

DflTR 

0 

2361 

0F26 

0000 

DATA 

0 

.2362 

0F28 

0000 

DATA 

0 

2363 

0F2R 

0000 

DATA 

0 

2364 

0F2C 

0000 

DATA 

0 

2365 

0F2E 

0000 

DATA 

0 

2366 

0F30 

0000 

DATA 

0 

2367 

0F32 

0000 

DATA 

0 

2 6 c* 

0F34 

0000 

DATA 

0 

236.9 

0F3'6 

0000 

DATA 

0 

2370 

0F38 

0000 

DATA 

0 

2371 

0F3R 

0000 

DATA 

0 

’"2 3 

0F3C 

0000 

DATA 

0 

2373 

0F3E 

0000 

DATA 

0 

2374 

0F40 

0000 

DATA 

0 


44 : 10 
9301 ** 


WR0 

RSVAL 

WR1 

CLSTVP 

WR2 

CHAR 

WR3 

RESLT 

WR4 

RESLT2 

WR5 

OPRES 

WR6 

RELVL 

WR7 

rlval 

WR8 

OP 

WR9 

SP 

WR10 

JVAL, FL 

WR11 

RETURN 

WR12 

ZCK2 

WR13 

NFWD 

WR14 

FSTIM 

WR15 

NGFL 

WR13C2 

> OLD WF 1 

WR14<2 

> OLD PC 

WR15C2 

> OLD SR 
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PRESS I ON EVALUATOR 948925-9901** 


2376 



* TITLE: 

EXPR 

•“> *7' '7* “7* 




EXPRESS I ON EVALUATOR 

*7* "J7 17| 



* REVISION: 

03/01/74 

2279 




ORIGINAL RELEASE 

2388 



:+r 

U3/ 15/ i 6 

2381 



:+: 

MODIFIED TO RUN WITH PXRMTR, DORG PROCESSING 

*~i .“i 




ADDED 

•“« 7*' C; “!;■ 



* COMPUTER: 

990, ASSEMBLY 

2384 



* ABSTRACT: 






EXPRESSIONS ARE EVALUATED IN A LEFT-TO-RIGHT, 

2386 




NON-PRECEDENCE FORMAT. THE EVALUATION OF AN 

2387 




EXPRESSION IS HALTED UPON ONE OF THREE 

2388 



:+: 

SITUATIONS: <1> THE READING OF A NON-ALPHA- 

2389 




NUMERIC CHARACTER < OTHER THAN +,-,*,/, *> <2> A 

2390 




NON-OPERATOR CHARACTER FOLLOWING AN OPERAND, OR 

2391 



*’+•' 

< 3 > THE READING OF AN EXTERNALLY REFERENCED 

2392 




SYMBOL. THE EXPRESSION MAY CONTAIN ONLY ONE 

2393 



•+• 

REFERENCED SYMBOL. TWO ALTERNATIVE EXITS MAY 

2394 



:+: 

BE TAKEN - THE FIRST FOR EXPRESSIONS WHICH 

2395 



:+: 

CONTAIN NO FORWARD REFERENCES, THE SECOND FOR 

2396 




EXPRESSIONS WHICH DO. 

2397 



* CALLING SEQUENCE: 

2398 




BLWP 0EXPR * 

2399 




NON-FORWARD-REFERENCE- I NSTRUCT I ON 

2408 




FORWARD-REFERENCE- I NSTRUCT I ON 

240:1 



* ADDITIONAL 

. NOTES : 

2402 



■A< 

WORKSPACE = EXWP/EXWP2 < UNSHARED > 

2403 




ALL SIXTEEN REGISTERS ARE USED BY OVERLAPPING 

2404 



+ 

EXWP AND EXWP2. ALL ENTRANCES ARE DEFINED 

2405 




THROUGH EXWP2 TO RETAIN THE RETURN ENVIRONMENT. 

2*486 




THE FIRST INSTRUCTION IS THEN A LWPI EXWP TO 

2407 




GAIN THE TREE ADDITIONAL REGISTER FOR USE. A 

2408 




LWPI EXWP2 WILL THEN PRECEDE ANY RTWP 

2409 




INSTRUCTION. THE NFWDA FLAG WILL CAUSE AN 

2410 




ERROR RETURN UPON DISCOVERY OF A FORWARD 

2411 




REFERENCE. 

2412 




ROUTINES CALLED: GETCHR, MLBFX, SCAN, SRCSYM 

2413 




GETSVL, ER7, ER2, FRENT, ER3, ER4, PRPMD, LKCHAR 

2414 



EX PR 


2415 

0F42 

0F22 *" 

DATA 

EXWP2 WORKSPACE 

2416 

0F44 

UF46 ’ 

DAT 8 

EXBG START 

2417 



EXBG 


2418 

0F46 

02E0 

LWPI 

EXWP CHANGE WORKSPACE 


0F48 

0F1C 



2419 





2428 



* INITIALIZE VALUES AND FLAGS 

•x* 

2422 

OF 4 A 

04 CF 

CLR 

NGFL CLEAR NEGATE FLAG 

2423 

0F4C 

04 E0 

CLR 

0FRWP+FWDSN+FWDSN CLEAR FORWARD REF SEEN FLAG 


0F4E 

1180*- 



2424 

0F50 

0288 

L I 

UP, 2 MARK AS PLUS 


0F52 

0002 

• 


2425 

OF 54 

0585 

INC 

□PRES SET OP AS UNRESOLVED 

2426 

0F56 

04 CD 

CLR 

NFWD CLEAR NO FORWARD FLAG 


PXRASM MIRA990 

EXPRESS fON EVALUATOR 


PAGE 0065 


V2L1 1.7 : 44 : 10 197/76 

948 9 2 5 - 9 9 8 1 * * 



427 0F58 0403 

CLR RESLT 

CLEAR RESULT 

423 0F5A 0404 

CLR RESLT2 


429 UF5U U4C6 

CLR RELVL 

CLEAR RELOCATAB I L I TV VALUE 

438 AFFiF AFiAF 

INC FSTIM 

SET FIRST TIME FLAG 


2431. + 

2432 * EXRMINE CLRSS OF INPUT SVMBOL AND BRANCH 

c!. 4 S Jr- : + : 

2434 EXCGN 


2435 

8F68 

04 C 7 


CLR 

RLVAL 

MARK AS ABSOLUTE 

2436 

8F62 

0428 


BLUR 

0GETCHR 

GET NEXT CHARACTER 


0F64 

116E- 





2437 

0F 66 

8282 


Cl 

CHAR, >20 

IN RANGE? 


0F68 

0020 





2438 

0F6A 

1:16B 


JLT 

ERRS 

NO - ERROR 

2 4 3 9 

8F6C 

D862 


MOVB 

©CLASS— >20 C CHAR 

>, CLSTVP GET CLASS TVPE 


0F6E 

019A " 





2440 

0F78 

8981 


SRL 

CLSTVP, 8 


2441 

0F72 

D82:l 


MOVB 

0 JMPTB3 < CLSTVP > 

. 0 JMP 3+1 


0F74 

1A38 •" 






0F76 

0F79 





2442 

0F78 

10FF 

JMP3 

..IMP 

$ 

BRANCH BV CLASS TVPE 

2 4* 4 







2444 




END OF EXPRESSION - E 

V ALU ATE CORRECTNESS 

2445 







2446 



CKER 




2447 

0F7A 

84E0 


CLR 

©NFWDR 

CLEAR NO FWD REF ALLOWED FLA( 


0F7C 

1.1.B8 





2443 

0F7E 

LLi-SE 


MOV 

FSTIM, FSTIM 

ANV RESULT PRESENT? 

2449 

0F88 

1660 


JNE 

ERRS 

NO, ERROR 1 

2458 

0F82 

8628 


DEC 

©SC WP+SCP T+5CP T 

VES, DECREMENT SCAN POINTER 


0F84 

0C16 •'* 





2451 

0F 86 

C328 


MOV 

©FRWP+FWDSN+FWD 

SN, ZCK2 FWD REF SEEN? 


0F88 

11B8-- 





2452 

0F8A 

1608 


■JNE 

GO 

VES 

2453 

8F8C 

Cl 8 6 


MOV 

RELVL, RELVL 

NO, RELOCATAB I L I TV VALUE? 

2454 

8F8E 

1159 


JLT 

ERRS 

LESS THAN ZERO - ERROR 

2455 

0F98 

8286 


Cl 

RELVL, 1 

GREATER THAN ONE? 


0F 92 

0001 





2456 

0 F 9 4 

1556 


JGT 

ERRS 

VES - ERROR 

2457 

8F96 

Cl 45 


MOV 

OPRES, OPRES 

NO, OPERATOR LEFT HANGING? 

2458 

0F98 

1654 


JNE 

ERRS 

VES - ERROR 

2459 

* 4 1* til j «') 

0F9A 

1004 

•4.* 

JMP 

EXP REX 

NO - TAKE NORMAL EXIT 

U T O J 

2461 



•T* 

•,L* 

CLEAN 

UP FORWARD REFE 

RENCE TABLE ENTRV 

; :d 4 6 £ 



f* 

GO 




24 64 

0F9C 

0428 


BLNP 

©MLBFX 

FWD RF SEEN, FIX UP MLB IN FF 


0F9E 

11F2 **’ 





2465 

0FA8 

iTi ET C"i 

85 E8 

iTiir- p* - • 


INC! 

©EXWP2+28 

TAKE ALTERNATE EXIT 

2 466 

*:L* r r1 

■tor r. 

EXPRF> : 




2 4 6 7 

0FA4 

02E0 


LWP I 

EXWP2 

ADJUST WORKSPACE 


0FA6 

0F22 





2463 

OF A3 

0380 


RTWP 


RETURN 




PAGE 0066 
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* 

OPSTK1 


PROCESS ADDITION OPERATOR 


2473: 

OFAFl 

Cl 45 


MOV 

OPRES, OPRES 

ALL OPERATORS RESOLVED? 

2474 

0FAC 

1308 


.JEQ 

STK 

YES, STACK 

2475 

0FAE 

10D8 


JMP 

EXCQN 

NO, IGNORE 

4 r o 




PROCES 

S SUBTRACTION 

OPERATOR 

cj. "P 4 



•+* 

OPSTK 

2 



2480 

0FB8 

Cl 45 


MOV 

OF* RES.* OPRES 

SLL OPERATORS RESOLVED? 

2481 

0FB2 

1385 


JEQ 

STK 

YES, STACK 

2482 

0FB4 

054F 


INV 

NGFL 

ADJUST NEGATE FLAG 

2485 

0FB6 

10D4 


JMP 

EXCON 

CONTINUE 




PROCES 

:S MULTIPLY OR 

DIVIDE OPERATOR 

2486 

248 7 



OPSTK 




2488 

0FB8 

05 8 D 


INC 

NFWD 

SET NO FWD REF FLAG 

2489 

0FBR 

Cl 45 


MOV 

p pr c n P! 1 c* pr c* 
U r K n. ~* .* U r K n. r. 

-ALL OPERATORS RESOLVED? 

24.90 

O/l 0*1 

8FBC 

1642 


JNE 

ERRS 

NO, SYNTAX ERROR 

ci '4 17 1. 

24.92 



•T* 

STACK 

OPERATOR 


2494 

2495 

MP BE 

©fill 

•T* 

STK 

SLR 

CLSTVP, 1 


2496 

0FC0 

C 2 0i.l 


MOV 

CLSTVP, OP 

STACK OPERATOR 

2497 

0 p 1 J 

8585 


INC 

OPRES 

SET UNRESOLVED FLAG 

24 98 

0FC4 

0 'I U E. 


CLP 

FSTIM 

CLEAR FIRST TIME FLAG 

24.99 

0FC6 

10CC 


JMP 

EXCON 

CONTINUE 


OBTAIN OPERAND - QUOTED STRING VALUE 


2584 

0F 

: 'C8 

04C5 

CL.R 

OPRES 

2585 

0FCA 

0FCC 

05A0 

8C1C 

INC 

0SCWP+ 1 NCSC 4- 1 NCSi 

2586 

H F Li:. 

i h LT r. iTh 

042© 

BL.WP 

©SCAN 

2507 

0FD2 

1000 

NOP 


2508 

0F 

0F 

r D4 
* D6 

0420 
1.1. 6E 

BLWP 

0 g e t c h r g e t 

2599 

8FD8 

0FDH 

0282 

0827 

Cl 

CHAR, >27 IS 

2518 

0F 

r DC 

1632 

, JNE 

ERRS no, 

2511. 

0F 

r DE 

: pr f“’i 

04E0 

OLE 

0SCWP4- 1 NCSC4- 1 NCSi 

251.2 

>:/ r 
0F 
0F 

nr. ».:.f 

r E2 

r E4 

J.. 

0020 
0f:1 2 •- 

MOV 

0SCWP+RESLT+RESL' 

25:0 

0F 

•EG 

061,0 

SWPB 

RSVAL 

2514 

Q F 

r E8 

D000 

MOVB 

RSVFIL, RSVAL 

2515 

0F 

r Efi 

1301 

JEQ 

SGQT2 

2 5 1 6 

0F 

r EC 

06C0 

C 2 

SWPB 

,M - 1‘”| T* -*5 

RSVAL 

25; j 

OF 

:x"E 

i 

1.7166 

-Ax ! tO 

JMF‘ 

VAL0P2 


CLEAR OP RESOLVED FLAG 
NCSC SET INSIDE STRING FLAG 

GET CHARACTER PAIR 

DUMMY EXIT FROM SCAN 
GET NEXT CHARACTER 

IS IT A QUOTE 

NO, ILLEGAL QUOTE IN EXPR 
NCSC CLEAR INSIDE STRING FLAG 

ESLT, RS'v'AL GET VALUE 

ADJUST FOR ONLY ONE CHARACTER 


JSE AS OPERAND 


PXRfiSM MIRA99 

E X F R F S 4 1 0 H E V Fl L. IJ ft T 0 R 


1 17:44:10 

9 4 & 9 2 5 9 9 © 1. * * 


X 9 «" 76 


PAGE ©067 


>523 0FF8 062© 
8FF2 0C16 *’* 
>524 0FF4 Cl 4 5 
>1525 0FF6 13 Cl. 
>526 0FF8 ©4C5 


OBTAIN OPERAND - SYMBOL OR CONSTANT 


DEC 0SCWP+SCPT+SCPT DECREMENT SCAN POINTER 


MOV OPRES, OPRES 
JEQ CKER 
CLR OPRES 


ALL. OPERATORS RESOLVED? 
YES - TWO OPERANDS IN ROW 
CLEAR UNRESOLVED FLAG 


^ O 7 

©FFA 

042© 

BLWP Ob CAN 

GET OPERAND 

25?A 

0FFC 

©FFE 

0C2C 

105C 

•IMP VALOR 

SCALAR - GO PROCESS 

2529 

1000 

0420 

BLWP 0SRCSYM 

SEARCH SYMBOL TABLE 


1.002 

1004 

0D94 ’’’ 
1000 

NOP 

NOT IN TABLE 



+ 

SYMBOL FOUND - BRANC 

H ON SYMBOL FLAG TYPE 

2524 

1006 

C2A0 

MOV eSYMBOL+FLAGS 

+FLAGS, JVAL 

csj u=| 

1.008 

:100ft 

0D36 ■’ 
D32A 

MOVE 0 JMPTB6 < JVAL > , 

0JMP6+1 

2536 

1.00C 
1.00E 
10:1 0 

1A42 

1011 

1.0FF JMP6 

..IMP 1 

BRANCH BY FLAG TYPE 

2548 

2541 

101.2 

: + : 

* 

RDF 

RELOCATABLE SYMBOL 
INC RLVAL 

MARK Fib RbLucft I ABLE 

2542 

±014 

.1 .-| .17 

:+• 

:+: 

ADh 

0420 

A B S 0 L U T E 5 Y M B 0 L 
BLWP 0GETSVL 

GET SYMBOL VALUE 

p , ; ;j, p 

,j„ ill x, ! 
1018 

l:;i D E ’ 
C02© 

M 0 V 0 S Y 1'* i B 0 L •+• V A L U E + 

•VALUE, RSVAL 


10:1 A 
:10:1C 

0D3C 

104F 

:•(*: 

J ME' VALUE 1 2 

P R 0 C E S S 0 P E R ft N D 

fSp 


EXTERNALLY DEF I NED S 

IYMBOL 

-r^ 

101 E 

E.'D 

Cm2 60 

MOV 0SYMBGL+SYMPTR+SYI1PTR, SP POINT TO S 

•*;i r;::j crj ( .j 

*1 0?0 

0D32 ■' 
C019 

MOV *5P, RSVAL 

ADJUST FLAG VALUE 

2555 

1024 

0240 

AND I RSVftL... >FF07 


P 6 

1026 

1028 

r F0 7 
0260 

OR I RSVftL.. >50 

MARK AS REFERENCED 


102 A 
1020 

0050 

C640 

MOV RSVAL.. *SP 

CONTINUE AS FWD REF 

, ?~T !*"■■ 

f *•* 


T* 

* 

•4.* 

FORWARD REFERENCED $ 

IYMBOL 

J r *i P J 

2 561 

102E 

■T* 

FR 

C32© 

MOV 0NFWDA, ZCK2 

IS FWD REF ALLOWED? 
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.10.70 

11B8-* 





256 7 

1072 

1602 


JNE 

ILF 

NO - ILLEGAL FWD REF 

2564 

1.034 

074D 


NOV 

NFWD, NFWD 

VES - IS FWD REF ACCEPTABLE? 

2565 

1036 

130ft 


JEQ. 

FRGT 

VES NOW - PROCESS 

2566 

2567 

1.038 

8420 

IL.F 

BLWP 

0ER7 

NOT NOW - ILLEGAL FWD REF 


103ft 

0B62 •" 





2568 

1070 

04E0 


CLR 

QNFWDft 

CLEAR NO FWD REF ALLOWED FLAG 


107E 

1108 '■* 





2569 

2570 

1040 

1002 

ERRS 

•JNP 

ERVL 

ERROR EXIT 

2571 

1042 

0420 


BLWP 

0ER2 

SYNTAX ERROR 


1044 

0B4E" 





"i crj 



ER'v'L 





1046 

0403 


CLR 

RESLT 

CLEAR RESULT 

2574 

2575 

1.048 

0406 

EXPRX2 

CLR 

RELVL 

CLEAR RELQCATAB I L I TV 

2576 

104ft 

10flC 


•JNP 

EXPREX 

EXIT 

2577 



FRGT 




257© 

1.04C 

04OE 


CLR 

FSTIN 

CLEAR FIRST TINE FLAG 

2579 

1.04E 

0420 


BLWP 

0FRENT 

SET INTO FRT ENTRY 


1058 

11D0- 





2580 



FREX 




~ ET O "!> 

1052 

.1086 


•IMP 

EXCON 

CONTINUE 

2584 



* 

EXTERNALLY REFERENCED SYMBOL - MODIFY CHAIN LINKS 



•T- 

ILEX 




2586 

1054 

0420 


BLWP 

0ER7 

ILLEGAL EXT REF 


1.056 

0052 





J587 

1858 

1.8F6 

cr d 

IMF' 

ERVL 

ERROR EXIT 

2589 

105ft 

07SE 

fcK 

MOV 

FSTIN, FSTIN 

IS THIS FIRST 0 P E R A N D / 0 P E RAT 0 

2590 

1050 

17 FB 


JEQ 

ILEX 

NO, ILLEGAL EXT REF 

2591. 

105E 

•1 i7i iL" iTi 

0420 


BLWP 

0LKOHRR 

GET NEXT CHARACTER 

2592 

J.. t., o kj 
1062 

J.. .1. •„! L- 
0282 


0 1 

CHRP, >20 

IS IT A BLANK 


1064 

0020 





259.7 

1066 

1706 


JEQ 

ERCT 

VES, CONTINUE 

2594 

1068 

■t.. 1 


01 

CHRP.* >*20 

NO, IS IT ft COMMA 


106R 

0020 





2595 

I860 

1707 


JEQ 

ERCT 

VES, CONTINUE 

2596 

106E 

1070 

0282 

0028 


01 

CHRP, >28 

NO, IS IT A LEFT PftREN 

2597 

1072 

16F0 


JNE 

ILEX 

NO, ILLEGAL EXTERNAL REF 

259© 



ERCT 




2599 

1874 

•1 iTi'T’ii? 

0428 

iTi r*'i cr 


BLWP 

0GETSVL 

GET SYMBOL VALUE 

2680 

c, ! L ' 

1078 

UL'oi:. 

C0F0 


MOV 

0SYMBOL+VAL 

JE+ VALUE, RESLT GET PREVIOUS VALUE 


107ft 

8D70 •“ 





2681 

1.0 7C 

C1.8R 


MOV 

JVRL, RELVL 

USE FLAG FOR RELQCATAB ILI TV 

2602 

•1.07E 

0226 


R I 

RELVL, -12 

GET PROPER VALUE 


1.080 

FFF4 





2607 

1.082 

0720 


NOV 

iBRpO, ZCK2 

IS PRESENT PC ABS CODE ZERO 


1084 

,11. BA ■** 






RASM 


MIRA990 V2L 

.1 

PRESS 

ION E' 

■'ALUATOR 

9489 

c.:', 6 U *4 

1086 

1603 

JNE 

2605 

1088 

C320 

MOV 


108 A 

042E 


2606 

10 8 C 

1314 

JEQ 

2607* 


ERINS 


2606 

108 E 

C2E0 

MOV 


1090 

11C 8”' 


2609 

1092 

1611 

JNE 


1.97/76 
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2610 

2611 

2612 


1094 C260 

1096 0D38 •' 

1098 C660 

109 A 11BA 
109C C260 

109E 8D32 •" 


JEQ ERE/ YES, DO NOT REPLACE 

MOV ODORGFL, Rll IF IN DORG, DON’T CHAIN OR 

•JNE EREX SET FLAGS IN SYMBOL TABLE 

MOV 0SYMBOL+SVMNM+SVMNM, SP REPLACE VALUE < CHAIN 

MOV 0PPC, *SP MOVE IN PRESENT PC 

MOV 0SYMBOL+SYMPTR+SYMPTR, SP 


:613 10A0 

0299 

MOV 

*5P, FL 

MOVE IN FLAG 

:614 10A2 

10A4 

024A 

FF07 

AND I 

FL, >FF07 

ADJUST FLAG VALUE 

:615 :10A6 

10 AS 

0320 
04 2 E •** 

MOV 

OMR I NW+RELAB; 

5+RELA6S, ZCK2 

•6.16 10 A A 

1302 

JEQ 

AER 

-CODE IS ABSOLUTE 

‘617 10AC 
10AE 

•618 

022R 

0008 

RE R 

RI 

FL.. 8 

MARK RELOCATABLE 

•619 10B0 

1002 

022R 

0060 

AI 

FL, >60 

MARK AS EXTERNAL REF 

6 20 lUEs4 
621 

C64A 

EREX 

MOV 

FL.., *SP 

PLACE NEW FLAG INTO 

622 10B6 

623 

1009 

JMP 

EXPRX2 

EXIT 

625 

626 

:+: 

VALOR 

ORLCUL 

.ATE NEW VALUE 

E OF EXPRESSION 

•02 2 111 06 
lUBA 

628 

C020 
0C12 •" 

VRL0P2 

MOV 

0SCWP+RESLT +RESLT, RSVAL 

629 10BC 

84 CD 

OLR 

NFWD 

L L. E R R N G F W D R L i .... 0 W E D 

630 100E 

04 OE 

OLR 

FSTIM 

CLEAR FIRST TIME FLA 

631 10C0 

03 OF 

MOV 

NGFL, MGFL 

IS NEGATE FLAG SET? 

632 10C2 

.1302 

JEQ 

NOMEG 

NO - SKIP 

633 1004 

04 OF 

OLR 

NGFL 

YES -- CLEAR NEGATE F 

634 1006 

jlT Tv 

0500 

NEG 

RSVAL 

NEGATE VALUE 

636 10C8 

1QCA 

S27 

r •! u 1 * nr. »...i 

0468 
10 OR 

JMPTB5 

B 

0 JMPTB5-2 < OF' 

* BRANCH ON OPERATOR 

638 1000 

1.803 

JMP 

RDDUP 

ADDITION 

639 10OE 

1008 

JMP 

SUB 

SUBTRACTION 

640 10D0 

100B 

JMP 

MULT 

MULTIPLICATION 

641 10D2 

642 

1017 

JMP 

DIVD 

DIVISION 

643 

644 

645 

* 1 
•+: 

RDDUP 

PER FOR 

*M ADDITION 


646 1 004 

R187 

R 

RLVAL, RELVL 

C H R N G E R E~ L 0 C A T A B I L I T 

647 1.0D6 

R0O0 

R 

RSVAL, RESLT 

ADD IN VALUE 



— — 

- - - 

■ 

... “ * ■ • ■■ 
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PXRfiSM , 
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EXPRESS 

ION E\ 

•RLUfiTOR 

94892 

5 “*"99 0.1 4: 4* 


2648 

10D8 

1902 


JNCf 

TRNEX 

TEST FOR OVERFLOW 

2649 



TRIM 




i^ 1 -' 2658 

1.0DA 

0420 


BLWP 

@ER4 

TRUNCATION ERROR 


1.0DC 

0856"* 





2651 



TRNEX 




2652 

10DE 

10B9 


JMP 

FREX 

CONTINUE 

2653 







2654 



:+: 

PERFORM SUBTRACT I ON 


2655 



:+: 




2656 



SUB 




2657 

10E0 

61.87 


CT 

RLVAL, RELVL 

CHANGE RELOCATAB I L I TV 

2658 

1.0E2 

6000 



RSVAL, RESLT 

SUBTRACT VALUE 

2659 

1.0E4 

19FC 


JN0 

TRNEX 

TEST FOR OVERFLOW 

2660 

10E6 

10F9 


JMP 

TRN 

TRUNCATION ERROR 

2661. 



4: 




2662 




PERFORM MULT I PL I CAT I ON 


2663 







2664 



MULT 




2665 

10E8 

06 A 0 


BL 

©F'RPMD 

.PREPARE OPERANDS 


10EA 

1.1 0E •" 





2666 

10EC 

3800 


MPV 

RSVflL, RESLT 

MULTI PL V VALUE 

2667 

10EE 

0003 


MOV 

RESLT, RESLT 

OVERFLOW 

2668 

1.0F0 

1382 


JEQ 

FILM 

NO 

2669 

10F2 

0420 


BLWP 

©ER4 

TRUNCATION ERROR 


18F4 

0B56 





2670 



FILM 




2671 

1 w F 6 

0804 


MOV 

RFSLT2, RESLT 

ALL I GN RESULT 

2672 



4: 




26 r* ,.S 



4 

AD JUS 

T SIGNS 


1 2674 



4*. 




^ 2675 



5INFX 




2676 

10F8 

C3CF 


MOV 

NGFL, NGFL 

IS NEGATE FLAG SET? 

o “7 "7 

10FR 

13 FI 


JEQ 

TRNEX 

NO - EXIT 

2678 

10FC 

0503 


NEG 

RESLT 

VES - NEGATE RESULT 

2679 

10FE 

M4uF 


CLR 

NGFL 

CLEAR NEGATE FLAG 

2680 

1100 

10FF 


JMP 

TRNEX 

EXIT 

268:1 



4 r 




2682 



4 : 

PERFORM DIVISION 


2683 



4 : 




2684 



DIVD 




2685 

1102 
•1 • ! }"i , t 

86R0 

■1 i pi nr ••* 


BL 

©PRFMD 

PREPARE FOR DIVIDE 

,2686 

1:106 

0103 


MOV 

RESLT, RESLT 2 

ADJUST FOR DIVISION 

2 6 8 7 

1:108 

0403 


CLR 

RESLT 


■“t o o 

110ft 

3000 


DIV 

RSVflL.. RESLT 

DIVIDE VALUE 

2689 

1:100 

10 F 5 


JMP 

SINFX 

FIX SIGNS 

2690 







269:1 



4: 

4: 

PREPARE SIGNS IN MULTI PL 

.VXD I V I DE OPERA T I ONS 

2694 

1 : 1 . 01 " 

0186 

PRFMD 

MOV 

REL..VL, RELVL 

IS RELOCATAB ILI TV ZERO 

2695 

1:110 

1698 


JNE 

ERRS 

NO -- ERROR 

2:696 

1112 

0 : 1.07 


MOV 

RLVfiL, RLVAL 

IS SYMBOL RELOCATABLE? 

2 6 9 7 

1 : 1:14 

■J f— , *~f J~, 


JNE 

ERRS 

VES - ERROR 

2698 

1 1 16 

0283 


01 

RESLT, -1 

IS RESULT PRESENTLY NEG AT I \ 


gy 
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EXPRESSION EVALUATOR 948925-9901=+==+= 



99 

11.18 
111 A 

FFFF 

1582 


JOT 

PRP2 

00 

111 c 

054F 


INV 

NGFL 

01 

11 IE 

0503 


NEG 

RESLT 

02 



PRP2 



03 

1120 

0288 


Cl 

RSVAL 


1122 

FFFF 




04 

1124 

1502 


JGT 

PRP3 

05 

1126 

054F 


INV 

NGFL 

06 

07 

1128 

0500 

PRP3 

NEG 

RSVAL 

08 

112R 

045B 


RT 



NO - CONTINUE 

VES - ADJUST NEGATE FLAG 

NEGATE RESULT 

-1 IS OPERAND NEGATIVE 

NO- CONTINUE 
ADJUST NEGATE FLAG 
NEGATE OPERAND 

RETURN 


c 





RRSM 


M I RR99 

3 V2L1 17 

' : 44 : 10 197/76 PRGE 3072 

i. JNCfif ION CHECK 

‘••*1 4 {“*J Q \/ j*"j — 

-990:1. + :: + : 

2711 



+■■ TITLE: 

TRUNK 

2712 




TRUNCATION CHECK 

2713 



* REVISION: 

83/01/74 

2714 



+c 

ORIGINAL RELEASE 

2715 



* COMPUTER : 

9 9 0 .« R S S E M B L V 

2716 



* ABSTRACT: 


2717 



+: 

TRUNK CHECKS WORD VALUES TO DETERMINE IF THE 

2718 



+• 

VALUE IS BETWEEN -128 AND 127. IF NOT, A 

2719 



+: 

TRUNCATION ERROR IS CREATED AND TRUNCATION 

2728 



+: 

OCCURS. 

2721 



+■■ CALLING SEQUENCE: 

2722 



+: 

BL @ TRUNK 

p 7’ "S; 



* ADDITIONAL 

NOTES: 

2724 



+: 

ROUTINES WHICH CALL TRUNK USE ONE OF THE 

P*j7 ^-IKJ 




FOLLOWING WORKSPACES: MAINW, 0PWP/0PWP2, 

2726 




OR FXWP. 

i’ cl f‘ 



•f: 

TRUNK EXPECTS THE WORD VALUE IN R0 AND WILL 

2728 



+: 

RETURN THE TRUNCATED VALUE IN R0, R10 WILL BE 

2729 



•+: 

DESTROYED. ROUTINE CALLED: ER4 

27.70 



TRUNK 

' 

2721 

112C 

0280 

MOV 

R0, R10 SAVE VALUE 


112E 

0600 

SWPB 

R0 CHECK FOR TRUNCATION 

2777 

1120 

0880 

SRR 

R0, 8 TOP BIT SIGN EXTENDED? 

2724 

1122 

8280 

0 

R0, R1.0 VES - GOOD 

2725 

1124 

1202 

JEQ 

ENDTRN VES - GOOD 

2726 

1126 

0420 

BLWP 

0ER4 TRUNCATION ERROR 


1128 

0B56 •’ 



2727 



ENDTRN 


p ■/;:< 

11 2 R 

04 5 B 

RT 

RETURN 


o 


PXRflSM 

4 

MIR ft 9 

90 V2L1 17 

: 44 : 1© 197/76 

PAGE 0073: 

CHRRflC 

TER SCANNER 

948925- 

-9901 



274:1 

1130 

0016 •" 

LKWP DftTft 

SCWP+SCPT+SGPT 

R0 

SCPTPT 

2742 

USE 

1160" 

DftTft 

LKC 

R1 

LCKRG 

2743: 

1140 

0000 

DftTft 

0 

R2 

CHAR 

2744 

1142 


INSTWD BSS 

4 

R3- 

R4 

2745 

1146 

0000 

DftTft 

0 

R5 

SVM 

2746 

1148 

0009 

DftTft 

>09 

R6 

TftBCHR 

2747 

114ft 


SVMBL BSS 

6 

R7- 

R9 

2748 

1159 

0020 

DftTft 

>20 

R10 

BLNKR 

2749 

1152 


BSS 

2 

Rll 

RETURN 

2750 

1154 

0B38 " 

SVMTftB DftTft 

SVMT 

R12 

SVMBOL TABLE POINTER 

2751 

1156 

0000 

DftTft 

0 

Rll 

OLD WP 

2752 

1158 

0000 

DftTft 

0 

R14 

OLD PC 

2753: 

115ft 

0000 

DftTft 

0 

R15 

OLD SR 


F'ftQE 0074 
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ARRCtER SCANNER 948925-9901 ** 


2755 



+ TITLE: 

LKCHflR/GETCHR 

2756 




CHARACTER SC 

ANNER 

i? r~j 7 



*■ REVISION: 

03/01/74 






ORIGINAL RELEASE 

2759 



* COMPUTER: 

990, RSSEMBLV 

2760 



* ABSTRACT: 



2761 




TWO ROUTINES 

ARE USED TO SCAN THE INPUT LINE AN 

2762 




RETURN THE NEXT CHARACTER. THE FIRST, LKCHAR, 

2763 




WILL. NOT ADV 

ONCE THE SCAN POINTER. THE SECOND, 

2764 



:+: 

GETCHP, WILL 

ADVANCE THE SCAN POINTER. 

2765 




FURTHERMORE, 

IF THE CHARACTER IS BLANK, GETCHR 

2 7 fc» 8 




WILL ADVANCE 

THE SCAN POINTER TO THE NEXT 

2767 




NON-BLANK CHARACTER AFTER RETURNING THE BLANK 

2768 




AS THE CHARACTER FOUND. 

2769 



* CALLING SEQUENCE: 


2770 



:+: 

BLWP OLKCHAR 


2771 



:+: 

OP 






BLWP OGETCHR 


2 72*7 



* ADDITIONAL 

. NOTES : 


2774 



:+: 

WORKSPACE = 

LKWP K UNSHARED > 

2775 




THE CHARACTER WILL BE RETURNED RIGHT-JUSTIFIED, 

2776“ 




ZERO-FILLED 

IN WORKSPACE REG 2 OF THE CALLING 

2777 




ROUTINE. A TAB WILL. BE RETURNED AS A BLANK. 

2772 



LK 0 H 8 R 



2779 

115C 

113C 

DATA 

LKWP 

WORKSPACE 

2780 

2781 

115E 

1:188 •- 

DATA 

LKC 

LK08LL 

START 

“> 7 "/ 



* P I OK UP 0H8R80TEP 


2784 



- r - 



2785 

1160 

08901 

MOV 

*SCPTPT, CHAR 

GET CHARACTER POINTER 

2786 

1162 

D092 

MOVE: 

♦CHAR, CHAR 

GET CHARACTER 

2 r* t"’ 

1164 

0i982 

SPL 

CHRP, 8 

RIGHT JUSTIFY CHARACTER 

2788 

1166 

8182 

0 

0 H 8 P , T fl B 0 H P 

TAB? 

2789 

1168 

1601 

JNE 

EXLK 

NO - EXIT 

2790 

1:168 

0088 

MOV 

BLNKP, CHRP 

YES - CHANGE TO BLANK 

2791 



EXLK 



2792 

116C 

0458 

RT 


RETURN 

2793 



GETCHP 



2794 

11 . 6 E 

1130- 

D 8 T 8 

LKWP 

WORKSPACE 

2795 

1170 

1.172*- 

DfiTR 

QTOH 

START 

2796 



GTOM 



2797 

1172 

©691 

BL 

+LCKRG 

GET CHARACTER 

2798 

1174 

0142 

MOV 

CHRP, SVM 

SAVE CHARACTER 

2799 

•"'* o i~t i~i 

1176 

05901 

I NO 

+SCPTPT 

INCREMENT SCAN POINTER 

t",. O K.' 

’’’« <”*l jyj 



* SKIP OVER IMBEDDED 

BLANKS 

2803 

1178 

0282 


CHAR, BLNKR 

IS CHARACTER A BLANK 

2804 

1:178 

1608 

JNE 

00 HP 

NO - END 

2805 



L.PCMR 



2806 

1170 

0691 

BL 

*LCKRG 

YES, GET NEXT CHARACTER 

2807 

1 17E 

Oi 5 9 Of 

I NO 

: + : SOPTPT 

INCREMENT SCAN POINTER 

2808 

1.180 

8 8 2! 

0 

CHRP, BLNKP 

IS CHARACTER A BLANK 


PfiGE 0075 


PXRfiSM 

MXRR9 

90 V2L 

1 17 : 44 ; 10 

CHARACTER SCANNER 

9 

4 8 9 2 5 - 9 9 0 1 + : + : 

2389 1132 

i:<fc 


JEQ LPCHR 

2810 1184 

2811 1186 

0610 

C085 


DEC +SCPTPT 
MOV SVM, CHAR 

28:12 1188 

1001 


IMP OCHR 

2814 118 A 

2815 

01691 

LKCfiLL 

BL +LCKRG 

2813 


:+•' 

RETURN CHARACTER 

23:18 

2819 1130 

0842 

:+: 

00 HR 

MOV CHAR, 04 < 13 

1.I.8E 

01004 



2320 1. 198 

013801 


RTWP 


VES,. CONTINUE LOOP 

NO, DECREMENT SCAN POINTER 

RESTORE CHARACTER 

END 

GET CHARACTER 


RETURN IN CALLING WR2 
RETURN 
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PXRfiSM 
LIMIT CHECK 


M I RA990 V2L1 17:44:10 197/76 

.‘9 4 8 9 2 5 ““ 9 9 0 . 1 . •+: 




Lc'2'b 


>0 

?:± 




2848 

2841 

2042 


TITLE: LIMCHK 

TITLE: LIMCHK 

LIMIT CHECK 
REVISION: ©3/01/74 

ORIGINAL RELEASE 
COMPUTER : 990, ASSEMBLY 
ABSTRACT : 

THE END OF THE SYMBOL TABLE IS COMPARED TO THE 
END OF FORWARD REFERENCE TABLE. IF TWO TABLES 
OVERLAP, THE RIJN IS ABORTED AND CONTROL PASSED 
TO THE ‘END-' PROCESSOR AS IF THERE WERE NO END 
VECTOR. 

CALLING SEQUENCE : 

BL ©LIMCHK 
ADD I T I ONAL NOTES : 

CALLED FROM ROUTINES WITH WORKSPACE SYMBOL 
OR FRWP 

ROUTINE CALLED: PRINT 

LIMCHK 



1.192 

1.194 

1196 

8828 
0838 •- 
1186 

C 

0ENDST, 0ENDFRT 

COMPARE FOR OVERLAP 

2844 

1198 

1B0A 

,JH 

LI MEND 

NO OVERLAP 

2045 

I. 1 9 A 

II. 9C 

020A 
01.02 •- 

L I 

I OP ARM, ABORT 

PRINT ABORT MESSAGE 

2046 

1.1.9E 

11A0 

0420 
19CE *“ 

BLWP 

©PRINT 


2047 

11A2 
1:1 A 4 

05R0 

010C 

INC 

©ABRTFL 

SET ABORT FLAG 

2040 

HAS 
11. A 8 

02E0 
0 4 2 8 * 

LWPI 

MAINW 

SET WORKSPACE POINTER 

2849 

2850 

.1.1. A A 
11. AC 

11AE 

M 4 6 0 

08DR 

0458 

B 

LI MEND 

RT 

©ERNOEV 

END PROCESS 
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* FORWARD REFERENCE ENTRV BUILD WORKSPACE 


2857 

11B0 

0000 

FRWP 

DATA 

0 

R0 

FWD5N, FRTCNT 

2858 

11B2 

0000 


DATA 

8 

R± 

FRTPT, FRE 

2858 

11.B4 

0000 


DATA 

0 

R2 

NFRT 

2868 

1.106 

0000 

ENDFRT 

DATA 

0 

R3 

MLBPT 

286:1 

11.B8 

0000 

NFWDA 

DATA 

0 

R4 

NFA 

2862 

11 BA 

0000 

RFC 

DATA 

0 

R5 

F'F'CRG 

2863 

ll.BC 

0002 

TWO 

DATA 


R6 

FR2 

2864 

1.1BE 

0000 


DATA 

0 

R7 

OF'F'TR 

2865 

1.1C0 

0000 


DATA 

0 

RS 

OPWRD 

2866 

ll.C 2 

0000 


DATA 

0 

R9 

OPCODE 

2867 

11C 4 

0000 


DATA 

0 

R10 

IOPARM 

2868 

1.1C 6 

0000 


DATA 

0 

Rli 

BRANCH 

2869 

lies 

0000 

DORGFL. 

DATA 

0 

R12 

DUMMY ORG FLAG 

2870 

11C A 

0000 


DATA 

0 

R13 

OLD WP 

2871 

nee 

0000 


DATA 

0 

R14 

OLD PC 

p jZj *7 

11 CE 

0000 


DATA 

0 

R15 

OLD SR 


PXRASM # M I RA990 V2L1 17 : 44 : 10 

FORWARD REFERENCE B U I LD 948925-9901** 
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2884 

“'AAA 


2 890 

2891 

2892 
289.1' 

2894 

2895 
2898 


29210 
2981 
292i 2 
2903 
2984 
292i5 
292i 8 
2907 
2988 

290y 

2910 


TITLE: 
REVISION : 
COMPUTER : 

ABSTRACT : 


FRENT 

FOWARD REFERENCE ENTRV BUILDER 

03/01/74 

ORIGINAL RELEASE 
990.. ASSEMBLY 
03/15/76 

MODIFIED TO RUN WITH PXRMTR, DORG PROCESSING 
ADDED. 


A FORWARD REFRENCE TABLE ENTRV IS BUILT. ONLY 
ONE FOWARD REFERENCE IS ALLOWED PER EXPRESSION. 
THIS ROUTINE PLACES THE SYMBOL'S SYMBOL TABLE 
ENTRV NUMBER AND IT'S ASSOCIATED ARITHMETIC 
OPERATOR INTO THE ENTRY. 

CALLING SEQUENCE: 

BLWP QFRENT 
ADDITIONAL NOTES: 

WORKSPACE = FRWP < SHARED WITH MLBFX, OUTSVM) 

A FORWARD REFERENCE TABLE ENTRY CONTAINS FOUR 
WORDS: LOCATION OF EXPRESSION 

ENTRY CODE <ST NUMBER AND OPERATOR) 
CUMULATIVE SUM OF EXPRESSION 
FLAG WORD 

THE LEFTMOST BYTE OF THE FLAG WORD CONTAINS THE 
PRESENT ACCUMULATED RELOCATAB I L I TV VALUE OF THE 
EXPRESSION. THE RIGHTMOST BYTE CONTAINS A FLAG 
CODE : 

0 - ABSOLUTE BYTE 2 - ABSOLUTE WORD 

1 - RELOCATABLE BYTE 3 - RELOCATABLE WORD 

THE ABSOLUTE OR RELOCATABLE NATURE REFERRED TO 
HERE IS THAT OF THE LOCATION AT WHICH THE 
FORWARD REFERENCE IS MADE, AND THE WORD/BYTE 
PORTION REFERS TO THE NATURE OF THE INSTRUCTION 
INVOLVING THE REFERENCE. THE JUMP INSTRUCTIONS 
ARE ONLY ONES FOR WHICH FORWARD REFS IN 
EXPRESSIONS ARE ALLOWED TO CREATE BYTE ENTRIES. 
ALL OTHER FORWARD REFERENCES MUST BE IN 


91.1 





EXPRESSIONS WHICH 

SATISFV FULL 

WORD ENTRIES. 

912 



FRENT 





913 

11D0 

11B0 •' 


DATA 

FRWP 

W 0 R K S P A C E 


914 

1:1 D2 

11D4-' 


DATA 

FRBG 

START 


915 



FRBG 





91.8 

11D4 

C2E0 


MOV 

0DORGFL, Rll 

DO NOT BUILD 

FRT IF IN DORG 


11D8 

11.CS' 






917 

11D8 

1381 


•JEQ 

FRB 



9:18 

11 DR 

0388 


RTWP 




919 








928 




SET APPROPRIATE FLAGS F 

OR EXPRESSION 

PROCESS I NG 

92:1 

.922 



•T- 

FRB 





923 

.11 DC: 

0582i 


I NO 

FWDSN 

SET FWD SEEN 

FLAG 

9 j..** 1-1. 

11DE 

8584 


INC 

NFA 

SET NO FWD REF ALLOWED FLAG 


■+: 


ESTABLISH ENTRV CODE WORD 
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2928 

HE© 

C060 

MOV 

0SVMBOL+NSB I T+NS 

BIT, FRE GET SVMBOL NUMBER 


11.E2 

0D42 




2 9 2 y 

11E4 

81R0 

c 

0EXWP+QP+OP, FR2 

IS OPERATOR A PLUS 


11E6 

0F2C 




2930 

11.E8 

1382 

JEQ 

INSTOP 

VES, OP ALREADV INSERTED 

2931 

11EA 

0261 

OR I 

FRE, >8080 

SET NEGATIVE FLAG 


11 EC 

8008 




2932 



INSTOP 



2933 

11EE 

C081 

MOV 

FRE, NFRT 

PLACE INTO STORAGE 

2934 

11F0 

0380 

RTWP 


RETURN 



PXRASM , 

FIX UP MULTI* 


MIRA998 
..ABEL BLC 


V2L:1 17 : 44 : 10 

) C K 9 4 8 9 2 5 - 9 9 0 1 * * 


197/76 


PAGE 0080 


2928 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 


TITLE: MLBFX 

FIX FOWRRD REFERENCE BLOCK 
REVISION: 02/01/74 

ORIGINAL RELEASE 
03/15/76 

MODIFIED TO RUN WITH PXRMTR, DORG PROCESSING 
ADDED 

COMPUTER : 990, ASSEMBLV 
ABSTRACT : 

THIS ROUTINE COMPLETES THE BUILDING OF THE 
FORWARD REFERENCE BLOCK FOR AN EXPRESSION BV 
FILLING IN THE LOCATION WORD, THE CUMULATIVE 
SUM, AND THE FLAG WORD NECESSARV. THE FLAG WORD 
IS SET AS BEING A WORD RATHER THAN A BVTE ENTRY 
THIS WILL BE RESET AS A BVTE ONLY BY JUMP 


2952 



+: 



PROCESSORS AFTER 

THE EVALUATION OF THE 

2953 



+: 



EXPRESSION. THE 

LIMIT CHECK IS TESTED UPON 

2954 






COMPLETION. 


2955 



+: 

CALI 

. I NG SEQUENCE: 

. 

2956 



+: 



BLWP QMLBFX 


2957 



■H 

ADD I T I ON Al 

NOTES: 


2958 



+: 



WORKSPACE = FRWP 

< SHARED WITH FRENT, OUTSVM> 

2959 



+: 



ROUTINE CALLED: 

LIMCHK 

2960 



•ILBFX 




2961 

11 F2 

11B0 ■' 



DATA 

FRWP 

WORKSPACE 

2 9 6 2 

•11F4 

11F6 

Ivl 1 


DATA 

MLBG 

START 

2964 

11F6 

C2E0 

III 

.. D U 

MOV 

0DORGFL, Rll 

DO NOT BUILD FRT IF IN DOR* 


11F8 

lies •- 






2965 

UFA 

1301 



JEQ 

MLB 


2 9 6 6 

11FC 

0380 



RTWP 



c.\ .”4::' r 

2968 



+• 


COMPLETE FORWARD REFERENCE BLOCK 

2969 



■f: 





2970 



MLB 




2971 

11.FE 

0583 



INC 

MLBPT 

POINT TO NEXT WORD IN FRT' 

2972 

1200 

CCC5 



MOV 

F'PCRG, : + : ML.BPT + 

MOVE LOCATION IN 

2973 

1202 

CCC2 



MOV 

NFRT, +MLBPT+ 

MOVE IN FRT ENTRY 

2974 

1284 

CCE0 



MOV 

0EXWP+RESLT+RE5L 

T, * MLBPT •+• CUM SUM 


1206 

0F22 






2975 

1208 

DCE0 



MQ'v'B 

@ E X WP+RELVL.+REL V 

L+l, +MLBPT+ EX PR RELOC 


120 A 

0F29 






2976 

1.20C 

C046 



MOV 

FR2, FRE 

SET FLAG AS WORD 

2 927 

120E 

R060 



R 

©MAINW+RELflBS+RELflBS, FRE LOCATION RELOC 


1210 

042E •' 






2978 

1212 

06C1 



SWPB 

FRE 

MARK AS RELOC OR ABS 

2979 

121.4 

D4C1 



MOVE: 

FRE, ’♦'MLBPT 

PLACE IN ENTRY 

2988 








Cj o ■"« 





TEST L 

OVERLAP WITH SVMB 

OL TABLE 


1216 

06R0 


, 

BL 

OLIMCHK 

TEST OVERLAP 


94 121 A 


1192 • 
0380 


RTWP 


RETURN 
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2987 



* 




2988 



* TITLE: 

OUTSVM 


2989 



* 


OUTPUT UNDEFINED 

SYMBOLS 

2998 



* REV IS 

ION: 

03/O1/74 


2991 



:+: 


ORIGINAL RELEASE 


2992 





02/15/76 


2997 



* 


MODIFIED TO RUN WITH PXRMTR 

2994 



* COMPUTER : 

990, ASSEMBLY 


2995 



■+■■ ABSTRACT: 



2996 





AN UNDEFINED SYMBOL ERROR OUTPUT FOR EACH 

2997 



* 


LOCATION IN A REMAINING FORWARD REFERENCE TABLE 

2998 



* 


BLOCK. 


2999 



* CALLING SEQUENCE: 


2000 



* 


BLWP ©OUTSVM 


300:1 



* ADDITIONAL. NOTES: 


2082 



* 


WORKSPACE = FRWP 

< SHARED WITH FRENT, MLBFX > 

2082 



* 


ROUTINES CALLED: 

B INHEX, PRINT 

2084 



OUTSVM 




2085 

12 1C 

11B0 


DATA 

FRWP, OUTBG 

WORKSPACE, START 


12 1.E 

1220 





2086 



OUTBG 




2807 

1228 

C002 


MOV 

MLBPT, FRTCNT 

POINT TO END OF FRT 

2808 

1222 

0280 


0 1 

FRTCNT, FRT-1 

COMPARE TO BEGINNING OF FRT 


1224 

009 F 





2089 

12/6 

12:16 


,TEQ 

OUT EX 

EQUAL =EX I T 

20:10 

1228 

0201 


LI 

FRTPT, FRT 

NOT EQUAL, UNDEFINED SYMBOLS 


122 A 

0080 





20:11 

122C 

0208 


LI 

I OP ARM, UNDMSG 

POINT TO ERROR MESSAGE 


122E 

0026 





2812 

1228 

8420 


BLWP 

©PRINT 

PRINT MESSAGE 


1222 

19CE-* 





28:12 



UNDEF 




28:14 

1224 

C801 


MOV 

FRTPT, ©PTL0C2 

POINT TO LOCATION ADDRESS 


1226 

1220 





2015 

1228 

0428 


BLWP 

©B INHEX 

CONVERT LOCATION ADDR 


122 ft 

©BE© 





20:16 

122C 

12 7 C •" 

PTL.0C3 

DATA 


TO HEX AND PLACE 

28:17 

122E 

8056 *** 


DAT A 

UNDLOO 

IN MESSAGE 

28:18 

1248 

0288 


L I 

I OP ARM, UNLMSG 

POINT TO ERROR MESSAGE 


1242 

0051 " 





20:19 

1244 

0420 


BLWP 

©PR I NT 

PRINT MESSAGE 


1 246 

19CE - 





2820 

1248 

0588 


INC 

©NUMERR 

I NCR NUMBER OF ERRORS 


1248 

0B44 ** 





202:1 

124 C 

822:1 


A I 

Frtpt, g 

POINT TO NEXT ENTRY 


124E 

0008 





2022 

1258 

8001 


0 

FRTPT, MLBPT 

PAST END OF FRT? 

7:022 

1252 

11 F8 


JLT 

UNDEF 

NO, CONTINUE 

2824 



OUTEX 




2825 

1254 

6780 


RTWP 


EXIT 


V^ v 


PAGE 8082 


PXRASM 


M I R A990 V2i. 

_1 17 : 44 : 10 

OPERATOR TV PE 

F'ROGE 

iiSSORS 

94892? 

5-9901** 

3-028 

1256 

0000 

OPWP 

DATA 

0 

3'029 

1258 

116E *' 


DATA 

GETCHR 

3:038 

125 A 

00010 


DATA 

0 

3G31 

125C 

00001 

OPWF'2 

DATA 

0 

3832 

125E 

0000 


DATA 

0 

3033 

1260 

00108 


DATA 

0 

3034 

1262 

0101001 


DATA 

0 

3035 

1264 

0000 

INST 

DATA 

0 

3036 

1266 

0000 


DATA 

0 

Ji-fclji- r* 

1268 

8800 


DATA 

0 

3 Ei 3 8 

126 A 

0000 


DATA 

0 

3039 

1260 

0000 


DATA 

0 

3048 

126E 

00100 


DATA 

0 

3041 

1270 

1552 - 


DATA 

RFf 

3:042 

1272 

01F42 *■' 


DATA 

EX PR 

3843 

1274 

0020 


DATA 

>20 

3044 

1276 

0000 


DATA 

0 

3045 

1278 

0000 


DATA 

0 

S 0 4 6 

127 A 

0000 


DATA 

0 


'6 


WR0 

EXPREQ 

WRi 

CGET 

WR2 

BVAL, TCHR 

WR3 

NXTWD, NXWD 

WR4 

STEP, INSFLG 

WR5 

FLGREG 

WR6 

TEMP IN 

WR7 

INSTRG 

WR8 

THOLD, RSV3 

WR9 

RSV 

WR10 

SCVAL 

WR11 

RETURN 

WR12 

REGREG 

WR'l 3 

RAPT 

WRI 4 

EXPRT 

WRI 5 

COMMA 

WRI 3-; 

2> OLD WP 

WR14C 

2> OLD PC 

WR15C 

2> OLD SR 


■) 



c 


flSM ^ 


M 1 RR9 

90 V21 

.1 17 

: 44 : 10 

197/76 PAGE 0084 

RRT Of 

? T'VPE 

PROCE 

SSORS 

9 40 92 F 

i~9901* :: + : 


097 

12A6 

1374 •- 


DATA 

TVP6 


098 

:12ft 8 

1386-' 


DATA 

TVP7 


099 

12; A A 

1354" 


DftTft 

TVP8 


1.00 

12AC 

13D8" 


DATA 

TVF'9 


101 

12AE 

06 3 C 


DATA 

DIPR 


102 

1280 

13 1C" 


DATA 

TVPB 


103 

12B2 

12B4" 


DATA 

TVPC 


1.04 







:3 OF, 




TVPC - 

TERM 

0 <- EXP => 7 

1.06 







107 



TVPC 




188 

1284 

0420 


BLWP 

©SCAN 

GET TERM 


1286 

0C2C 





109 

1288 

1010 


JMP 

VCKP 

NUMERIC VALUE 

1.1.0 

128 ft 

0420 


BLWP 

0SRCSVN 

SEARCH SVMBOL TABLE 


128C 

0D94 





111 

12BE 

1005 


JMP 

ILFRM 

NOT IN TABLE - ERROR 

112 

12C0 

C0ft0 


MOV 

©SVMBOL+FLAGS+FLAGS, BVAL TEST FI 


12C2 

0D36 





1.13 

12C4 

0222 


AI 

BVAL, -8 

‘DEFINED? 


1.2C6 

pppo 





114 

12C8 

1103 


•JLT 

GDTRM 

VES - GOOD 

.1.15 



ILFRM 




11.6 

1.2CA 

0420 


BLWP 

©ER8 

ILLEGAL FORWARD TERM 


12CC 

0066 





1.1? 

12CE 

1030 


JMP 

TVP0 

OUTPUT OBJECT 

11.8 



GDTRM 




1.1.9 

12D0 

0428 


BLWP 

©GETSVL 

GET SVMBOL VALUE 


12D2 

0D6E ' 





1.20 

:12D4 

0020 


MOV 

@5VM8QL+‘ 

/flLUE+VflLUE, EXPREG 


si 21 
5122 

51.24 


12D6 

12D8 

12Dfl 

12DC 


0D3C • 
1002 

C020 

0C12- 


VCKP 


•'CK 


IMP VCK CHECK VALUE 

MOV ©SCWP+RESLT+RESLT, EXPREG GET SCAN VALUE 


3:125 

12DE 

0280 

MOV EXPREG, SCVAL 

CHECK FOR TRUNCATION 

3126 

12E0 

0240 

AND I EXPREG, 7 

IS VALUE IN THREE BI 


12E2 

0007 



1 c:’. / 

12E4 

8280 

C EXPREG, SCVAL 


3128 

1.2E6 

1382 

JEQ VOK 

VALUE OK 

3:129 

:12E8 

0420 

BLWP 0ER4 

TRUNCATION ERROR 


12EA 

0856 



3130 


VOK 



3131 

12 EC 

E1C0 

SOC EXPREG, INSTRG 

MOVE VALUE INTO INST 

I}"!'; 

12EE 

1020 

*,L» 

JMP TVP0 

OUTPUT I NSTRUCT I ON 

3134 
31.35 
<1. s€< 


*T* 

:+: 

TVP1 — GAD, GAD 



: + : 

TV PI 




»- 

12F0 06 ft© 

BL 0AGET.1 

MOVE FIRST GEN ADD 

38 

12F4 0411 

BLWP : + : CGET 

GET CHARACTER 

9 

12F6 8302 

C TCHR, COMMA 

COMMA? 

40 

12F8 1628 

JNE SER 

NO - SVNTAX ERROR 


PfiGE 3085 


PXRflSM 

OPERflTCfc TV PE 


MIRA99© V; 
F’ R 0 C ESS 0 R S 


.1 1.7 : 44 : 1.0 

948925—9901** 


1.97/76 


3141 

1.2 FA 

06R8 


BL 

©GAD 

GET NEXT GENERAL ADDRESS 


1.2FC 

14CC •" 





3142 

12FE 

0ftft5 


SLR 

FLGREG.. I© 

GET TAG DEST FIELD 

3143 

1300 

E1C5 


soc 

FLGREG, INSTRG 

MOVE INTO INST REG 

3144 

1302 

0R6C 


SLft 

REGREG, 6 

MOVE IN REGISTER VALUE 

3145 

1304 

E1CC 


soc 

REGREG, INSTRG 


3146 

1306 

1020 


JMP 

TVP0 

OUTPUT INSTRUCTION 

3147 







3148 



fiGETl 




3149 

1308 

C20B 


MOV 

11, RSV3 

SAVE RETURN 

3150 

130ft 

06ft© 


BL 

©GAD 

GET GEN ADD 


130C 

14CC-" 





3151 

1.30E 

0FI45 


SLR 

FLGREG, 4 

MOVE TAG SOURCE INTO INS 

3152 

1310 

E1.C5 


soc 

FLGREG, INSTRG 


3153 

1312 

E1CC 


soc 

REGREG, INSTRG 

MOVE REG SOURCE INTO INS 

3154 

crcr 

1314 

0458 


B 

*RSV3 

RETURN 

3156 



•T* 

TVP2 

- GfiD 


3157 








TVP2 


131.6 

1.318 

131R 


06 H0 

1308' 

1016 


BL ©flGETl 
•IMP TVF‘0 


GET FIRST GEN ADD INTO INST 
OUTPUT I NSTRUCT I ON 


TVPB - COMPLETE RETURN INSTRUCTION 


13 IE 000B 


ft I INSTRG, >B 


COMPLETE I NSTRUCT I ON 


3166 

1320 

106ft 


JMP 

RINST2 

OUTPUT I NSTRUCT I ON 

3167 







3:168 




TVP3 

- WELL - DEFINED 

BYTE EXPRESSION 

31.6.9 







3178 

3171 

1322 

1324 

05RO 

•| A DO 

TV P.1 

INC 

SNFWDfl 

SET NO FWD ALLOWED FLAG 

3:172 

X X DO 

04 IE 


BLWP 

*EXPRT 

GET EXPRESSION 

3:173 

1328 

1000 


NOP 


FWD REF NOT SEEN 

31.74 

132R 

C820 


MOV 

0EXWP+RESLT+RES 

_T, EXPREG SAVE RESUL 


132C 

0F22 ■' 





3175 

132E 

06R0 


BL 

©TRUNK 

TEST FOR TRUNCATION 


1338 

11 . 2 c ••• 





*!*’ '"j 7 |i!T 

1332 

0240 


AND I 

EX PR EG.* >FF 

TRUNCATE 


1334 

00 FF 





3:178 

tSp 

El CO 
1007 


SOC 

JMP 

E X P R E Q .« 1 N S T R G 
TVP0 

MOVE INTO INSTRUCTION 
OUTPUT I NSTRUCT I ON 

3:179 

3180 



4* 

SEP 




3:18:1 

133R 

133E 

8420 

L’.“« .-I C’ •** 


BLWP 

0ER2 

SVNTflX ERROR 

31.82 

Li r::> *4 1:, 

04D3 


CLR 

♦NXTND 

CLEAR NEXT WORD 

3183 

1.340 

Cl 84 


MOV 

INSFLG.* TEMP IN 

ADJUST INSTRUCTION TVPE 

3:184 

1.342 

0R16 


SLR 

TEMP IN, 1 


3:185 

:i 344 

R 1 06 


R 

TEMP IN, INSFLG 


31. 86 

1346 

0584 


I NO 

INSFLG 



PAGE 0086 


PXRASM 

OPERATOR TVF'E 


MIRA99© 

PROCESSORS 


..I 17 : 44 : 10 19 7/76 

9 4 Si 9 2 5 ~ 9 9 0 1 * : + : 


3187 



TVP0 


3188 

1.348 

104F 


■JMP 

3189 





3190 




TYP4 • 

J:- J.. 27 .1 

3192 



TYP4 


3193 

134 ft 

069D 


BL 

3194 

134C 

E1CC 


soc 

3:195 

134E 

0411 


BLWP 

3196 

1350 

8302 


0 

3197 

1352 

16F3 


•JNE 

3198 





3199 




TYP8 ■ 

3200 





3201 



jypo 


3202 

1354 

05E0 


INCT 


1356 

11BA 



3203 

1358 

041E 


BLWP 

3204 

135 A 

1003 


JMP 

3285 

135C 

©204 


LI 


135E 

0003 



3206 

13601 

1043 


•IMP 

3207 



TVP4A 


3208 

1362 

C4E0 


MOV 


1364 

0F22 *•* 



3209 

1366 

0584 


I NO 

3210 

1368 

A.120 


ft 


136A 

0F28 •" 



32:1.1 

136C 

103D 


JMP 

3212 





3213 




TVP5 ■ 

3214 





3215 



TVP5 


3216 

1.36E 

869D 


BL 

3217 

1370 

E1CC 


SCO 


1372 

16? 3 ft 

*JL* 

JMP 

.j* «n« «X. 

3220 



*#• 

:+: 

TVP6 * 

3221 





’*? 



. TVP6 


•”> 

1374 

0 6 ft 0 


BL 


1 3 7 1~« 

1308 




1378 

0411 


BLWP 

3225 

137ft 

8302 


0 

3226 

137C 

162ft 


JNE 

228 7 

137E 

069D 


BL 

“T-* •••;. •";» o 

1380 

0ft 60 


SLfl 

3229 

1.382 

El 00 


soc 

3230 

1384 

1031 

% L« 

JMP 




T* 

TVP7 

"7 “*i 



:+: 


3234 



TVP7 


7235 

1386 

04 IE 


BLWP 

7236 

1388 

101,2 


JMP 


OUTPUT INST 


GET REGISTER ADDRESS 
PLACE INTO INSTRUCTION 
GET CHARACTER 
COMMA? 

NO - SYNTAX ERROR 


*RAPT 

REGREG, INSTRG 
*CGET 
TCHR, COMMA 
SER 

- IMMEDIATE VALUE 


0PPC INCREMENT PRESENT PC 

*EXPRT GET EXPRESSION 

TVP4A . FWD REF NOT SEEN 

INSFLG, 3 ADJUST INSTRUCTION TYPE 

AO INST OUTPUT INST 

0EXWR+RESLT+RESLT, +NXTWD PLACE RESULT IN WORD 

INSFLG MARK AS ABSOLUTE DEF 

0EXWP+RELVL+RELVL, INSFLG RELOCATABLE ADJUST 

AO INST OUTPUT INSTRUCTION 


RA 


*RAPT 

REGREG, INSTRG 
AO INST 

■ GAD, RA 


0AGET1 


TCHR, COMMA 
SERRG 
*RAF'T 
REGREG, 6 
REGREG, INSTRG 
AO INST 


GET REGISTER ADDRES 
MOVE INTO INST 
OUTPUT INST 


GET GEN ADD 

GET CHARACTER 
COMMA? 

NO - SYNTAX ERROR 
GET REGISTER ADDRESS 
SHIFT AND PLACE IN INST 


OUTPUT INST 
C JUMPS > BYTE EXPRESSION 


TY72 


GET EXPRESSION 
NO FWD REF - SKIP 


PXRASM , 


MIRA99© V2J. 

.1 r 

: 44 : 10 197/7 

6 P8GE 0087 

OPERRTOR TV PE 

PROCESSORS 

94892* 

5-9901 


223? 

138R 

0180 

MOV 

0FRWP+MLBPT +ML6PT, TEMP IN POINT TO FLAGS IN ML 


138C 

11B6-- 




3:238 

138E 

7580 

SB 

0TWO+1, +TEMPIN 

MARK AS BVTE EXPRESSION 


1390 

11BD" 




2239 

1392 

0228 

81 

TEMP IN, -3 

POINT TO CUMSUM IN FRT ENTRV 


1394 

FFFD 




3240 

1398 

D587 

MOVE 

I NSTRG, *TEMPIN 

MOVE IN INSTRUCTION 

324:1 

1398 

8420 

BLWP 

@B INHEX 

CONVERT INSTRUCTION FOR PRINT 


±398 

0BE0"' 




3242 

1.39C 

1264 •- 

D8T8 

INST 

INSTRUCTION 

3243 

1.39E 

0138 •- 

D8T8 

INSV8L 

PRINT LOCATION 

£ d 4 4 

1380 

0208 

LI 

TH0L.D, >2020 

PLACE MINUS SIGNS ACCORDINGLY 


1382 

2D2D 




3245 

13R4 

08R0 

BL 

0FWDJ 

OUTPUT FORWARD JUMP 


13R8 

1458- 




s 2 4 8 


OR EXT 




324? 

1388 

02E0 

LWPI 

0PWP2 

ADJUST WP 


1388 

1250-' 




3248 
'4 8 

13fiC 

0380 

RTWP 


.RETURN 

3250 


TV 7 2 




3251 

138E 

C020 

MOV 

0EXWP+RESLT+RES 

LT, EXPREG GET RESULT 


13B0 

0F22 x 




3252 

:13B2 

0840 

DECT 

EXPREG 

SUBTRACT TWO FROM VALUE 

3253 

13B4 

8020 

c* 

OMR I NW+PC+PCj. EX 

:preg subt pc from expr 


13B6 

0438 *■' 




3254 

13B8 

0810 

SR R 

EXPREG, 1 

DIVIDE BY TWO 


13B8 

08R0 

BL 

0 TRUNK 

TEST FOR TRUNCATION 


13BC 

112C •" 




U 3:256 

13 BE 

0240 

AND I 

EXPREG, >FF 

TRUNCATE 


1300 

00FF 




3257 

1.302 

E1.C0 

soc 

EXPREG, I NSTRG 

PLACE INTO INSTRUCTION 

3258 

1304 

8820 

c 

0 E X W P + R E L V L + R E L 

. V L. , 0118 1 N W+REL8B5+ R E LABS 


..1 :• L- O 

W r ci. c» 

0 4 ci! E ‘ 




3259 

13 OR 

130E 

JEQ 

ROINST 

REL0C8TAB I L I TV ACCEPTABLE 

3280 

13CC 

0420 

BLWP 

0ER2 

UNACCEPTABLE - SYNTAX ERROR 


13CE 

084 E *■’ 




3281 

1.3D0 

1012 

c* ir n« o 

JMP 

AINST2 

OUTPUT INSTRUCTION 

3283 

13D2 

n. K K '..3 

0420 

BLWP 

0ER2 

SYNTAX ERROR 


3288 

3288 

13D8 180F 

■¥ 

■r 

T VPS 

JMP 
TVP9 - 

RINST2 

~ RR, SHIFT VALUE 

OUTPUT I NSTRUCT I ON 

3289 

L 3D 8 089D 


BL 

*RAPT 

GET REGISTER ADDRESS 

3270 

L.3DA E1CC 


SOC 

REGREG, I NSTRG 

PLACE INTO INST 

2 "7 •‘J 

L3DC 04:11 


BLWP 

*CGET 

GET CHARACTER 

“7 ‘y* 

1.3DE 83C2 

. 

c 

TCHR, COMMA 

COMMA? 

•: "7 ’<■ 

L3E0 18F8 


*JNE 

SERRG 

NO - SYNTAX ERROR 

3274 

L3E2 08 9 D 


BL 

:+:RAPT 

GET SHIFT VALUE 

3275 

1.. 3E4 ©84 C 

1.. 3E8 E ICC 


SLR 

SOC 

REGREG, 4 
REGREG, I NSTRG 

POSITION IT AND PL AC 




PXRASM 4 - MIRAS* 

OPERATOR TV PE PROCES 


|0 V2L1 17 : 44 : 10 
; 5 q p; 5 948925-99 0 1 +■ * 


197/76 


PAGE 0088 


DETERMINE THAT INSTRUCTION IS COMPLETE 


AO INST 


81 

13:E8 

0411 


BLWP 

* : CGET 

GET CHARACTER 

o 

13EA 

0282 


Cl 

CHAR, >20 

BLANK? 


13EC 

0020 






13EE 

1303 


.JEQ 

AINST2 

VES - CONTINUE 

84 

13F0 

0282 


CI 

CHAR.. EOL 

NO - END OF LINE? 


13F2 

000D 





85 

13F4 

16EE 


■JNE 

SERRQ 

NO - SYNTAX ERROR 

86 



AINST2 




£{"7 

13F6 

0203: 


LI 

NXWD, INSTWD 

POINT TO FIRST EXTRA WORD 


1.3F8 

1142" 





i~« »Zj 

13:FR 

0600 


BL 

9PCPRN 

PLACE PC IN OUTPUT LINE 


13FC 

1490 " 





89 

1.3FE 

0420 


BLWP 

@B INHEX 

CONVERT INSTRUCTION VALUE 


1400 

0 BE 0 •- 





98 

1402 

1264 ‘‘ 


DATA 

INST 

INSTRUCTION 

91 

1404 

013‘8 •'* 


DATA 

INSVAL 

LOCATION IN OUTPUT LINE 

92 

I486 

0420 


BLWP 

0PRNTLN 

PRINT FIRST LINE 


1408 

186 A 





93 

140 A 

•1 L .J iTh”’" 

05E8 


INCT 

0 M ft I N W + P 0 + F' 0 

ADJUST PROGRAM COUNTER 

4 cj. 

J.. * 4 - !_. 

14 0E 

0420 


BLWP 

0 OUTOBJ 

OUTPUT OBJECT 


1410 

1706 





95 







96 




OUTPUT 

INSTRUCTION 

USING JUMP TABLE BASED ON NUMB 

97 




AND TV 

•PE OF ADDITIONAL WORDS TO INSTRUCTION 

90 



* 




1 y y 

1412 

0205 


LI 

FLGREG, ABSIN 

POINT TO ABSOLUTE PROCESS 


1414 

.1.478 •'* 





00 

1416 

0200 


LI 

REGREG, RELIN 

RELOCATABLE PROCESS 


1418 

1472” 





01 

:141ft 

0200 


LI 

EXPREQ, FWD IN 

FORWARD REFERENCE PROCESS 


14 1C 

1450 *” 





02 

14 IE 

D824 


MOVE 

0 1 NTBL STEP > , 

ejMPiN+i 


1420 

1R5E-* 






1422 

1425-' 





03- 

1424 

10 FF 

JMFIN 

JMF 


BRANCH ON INSTRUCTION TVP 

04 



IN4 




05 

1426 

0695 


BL 

*FLGREG 

OUTPUT ABSOLUTE DATA 

06 



INI 




87 

0 l- 1 

1428 

0695 

T KJ m 

BL... 

•+FLGREG 

OUTPUT ABSOLUTE DATA 

09 

142ft 

10BE 

.1. 14 R.' 

JMP 

OP EXT 

EXIT 

10 



INS 




11 

1420 

0695 


BL 

: +- FLGREG 

OUTPUT ABSOLUTE DATA 

12 



IN2 




! 7 

142E 

0690 


BL 

* RE GREG 

OUTPUT RELOCATABLE DATA 

14 

143-0 

10BB 

. 

JMP 

OPE XT 

EXIT 

1,5 



IN6 




16 

1432 

0695 


BL 

* FT... GREG 

OUTPUT ABSOLUTE DATA 


+EXPREG 


OUTPUT FWD REF DATA 


ISM # 


11 1 RR990 V2L 

1 1 

7 : 44 : 10 197/76 

AT OF 

TVPE 

PROCE 

SSORS 

9489;? 

5-9901+* 

19 

20 

1426 

10B8 

IN? 

JMP 

OPEXT 

21 

1428 

0690 


BL 

+REGREG 

22 

143A 

10F6 

INS 

JMP 

INI 

24 

143C 

0690 


BL 

* RE GREG 

25 

26 

143E 

10F7 

IN9 

JMP 

IN2 

1 

1440 

0690 


BL. 

+REGREG 

29 

1442 

10F8 

IN10 

JMP 

IN2 

30 

1444 

0690 


BL 

+EXPREG 

31 

1446 

10F0 

I Nil 

JMP 

INI 

32 

1.448 

0690 


BL. 

*EXPREG 

24 

25 

144R 

10F1 

INI 2 

JMP 

IN2 

2 6 

144C 

0690 


BL 

+EXPREG 

2F: 

144E 

10F2 

FWD IN 

JMP 

IN3 

29 

1450 

1452 

0208 
2D 2D 


LI 

THOLD, >2D2D 

.40 

:41 

1454 

1456 

0808 

0128 

FWDJ 

MOV 

THOLD, 0INSVAL 

:42 

1458 

145R 

0888 

013ft" 


MOV 

THOLD, 0 1 NSVAL+2 

:43 

145C 

145E 

85 ft Ei 
1.6E6" 


INC 

0OTWP+NCONS+NCON: 

■ 44 

1460 

0188 


MOV 

11, TEMPI N 

:45 
. 4 1 :> 

1462 

1464 

06A0 
1.490 ■" 

0TLN2 

BL 

0PCPRN 

•47 

1466 

1468 

0428 
186 A ' 


BLWP 

0PRNTLN 


PAGE 0089 


EXIT 

OUTPUT RELOCATABLE DATA 
OUTPUT ABSOLUTE DATA 

OUTPUT RELOCATABLE DATA 
OUTPUT RELOCATABLE DATA 

OUTPUT RELOCATABLE DATA 
FWD REF 

OUTPUT FWD REF DATA 
OUTPUT ABSOLUTE DATA 

OUTPUT FWD REF DATA 
OUTPUT RELOCATABLE DATA 

OUTPUT FWD REF DATA 
.FWD REF 


CREATE MINUS PRINT FOR FWD RE 


SET NON-CONSECUT I VE FLAG 
SAVE RETURN 

PLACE PC IN OUTPUT LINE 


PRINT LINE 


2248 

146 A 
146C 

05E0 
0430 •“ 


INCT 

0Mft I NW+PU+PU 

ADJUST PC 

3249 

1.46E 

0503 


INCT 

NXWD 

POINT TO NEXT EXTRA WORD 

3350 

1470 

0456 

PEL IN 

B 

*TEMPIN 

RETURN 


1472 
14 f' 4 
1476 

D820 
1.A6B •" 
013 C 

ftBSIN 

MOVB 

0QT, ©RELMRK 

SET RELOCAT AB I L I TV MARK 

3354 

1478 
1.4 7 A 

082t3 
1488 " 


MOV 

NXWD, 0NXWLC 

POINT TO ADDITIONAL WORD 

"7 rcj cr 

147C 

i ,-i -7 p 

0.420 

CT C'i ' * 


BLWP 

0B INHEX 

CONVERT WORD FOR PRINTING 

3356 

1480 

kJ XZ. u 

1488 " 

NXWLC 

D FIT ft 


ADDITIONAL WORD VALUE 


1482 

8:138" 


DftTft 

INSVAL 

LOCATION IN OUTPUT LINE 

3358 

1484 

018B 

, 

MOV 

11, TEMP IN 

SAVE RETURN 

3359 

1486 

06ft 0 
1490 " 
0420 
1706 " 


BL 

0PCPRN 

PLACE PC IN OUTPUT LINE 

336E1 

148 A 
1.48C 


BLWP 

0OUTOBJ 

OUTPUT OBJECT 
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MIRA990 V2L1 17:44:10 197/76 


Of 

-*ERRTC 

P TYPE 

PROCP 

S S 0 R S 9 4 8 9 2 5 — 9 9 0 1. 



336*1 

3362 

148E 

10EB 

•Jf'IP GTLN2 

* 

PRINT OUTPUT LINE 

.<.<64 



:+ : PUT PROGRAM COUNTER 

OUT FOR LINE 


3365 



PCPRN 



3366" 

1490 

8428 

BLUR 0E< INHEX 

CONVERT PC 



1492 

OBE0 •** 




ffiT 

1494 

043:0 "■ 

DATA MAINW+PC+PC 

PC VALUE 


f f 1 && 

1496 

A riTi 

013:2‘* 

DATA LOCNIJM 

LOCATION IN OUTPUT LINE 


.S' 3 6 y 

14 io 

04 5B 

RT 

RETURN 


OP PR 


i'l I KH99C V' C L. X *X i - ' : 4 : 10 

3CESSOR 9 4 8 9 25— 9 9 0 1 * * 
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* TITLE: XOPG 

■■¥ DEFINED OP PROCESSOR 

* REVISION: 03/01/74 

:+: ORIGINAL RELEASE 

* COMPUTER: 990, ASSEMBLY 

* ABSTRACT: 

* THIS ROUTINE PROCESSES A DEFINED OPERATOR, 

* CREATING THE APPROPRIATE 'XOP' INSTRUCTION IN 

* ITS PLACE. IT COMPLETES PROCESSING THROUGH THE 

* NORMAL PROCESS FOR OUTPUTTING INSTRUCTIONS AS 

=+: ESTABLISHED IN OPTVPE. 


*7* O 



:+: CALLING SEQUENCE: 


384 



* 8LWP eXOPQ 


335 



ADDITIONAL NOTES: 


..s 8 6 



* WORKSPACE = OP WPS 

/OPWP < SHARED WITH OPTVPE 




* AND OPERAND > 


333 



* ALL SIXTEEN REGIS 

TERS ARE UTILIZED BV CREATING 




* THE SAME LINKAGE 

AS DOES OPTVPE. THIS IS DONE 

393 



* SO THRT THE PROOF 

SSING MAV EXIT THROUGH 

391 



* "AO INST*' IN OPTVF 

E RATHER THAN HAVING TO RETUR 

392 



* TO XOPG. 


393 



* ROUTINES CALLED: 

GET SVL, GETCHR, AGETi, CSVNFRX 

394 



* AND AO I NST > 


393 



XOPG 


39 G 

1.49R 

125C -* 

DATA 0PWP2 

WORKSPACE 

39? 

149C 

1.49E ■" 

DATA XOPBG 

START 

398 



XOPBG 


399 

149E 

02 EO 

IMP I OPNP 

ADJUST WP 


14A0 

1256-' 



4 O 0 
401 
.•1 



•+• 

* PROCESS DEFINED OPERATE 

R AS XOP 

• c.. 

:493 

14A2 

•i i Ci -1 

0207 

2 C 00 

0428 

•T* 

LI INSTRG, >2008 

MARK AS XOP 

.404 

_L , 4ri u > 
1/4 Fl 6 

BLWP QGETSVL 

GET SVMBOL VALUE 


14R8 

8 D 6 E 



:405 

1.4AA 

C 020 

MOV 0SVMBOL+VALUE+VRL 

,UE... EXPREG 


•14RC 

0D3C 



4 O G 

14 RE 

8R60 

SLR EXPREG , 6 

SHIFT FOR PLACEMENT 

407 

1480 

E1.C0 

S 0 C E X F* R E G .* i N S T F: G 

PLACE I N F U X NS 1 RUC i I ON 

408 

1482 

04 0 4 

CLR INSFLG 

CLEAR I NSTRUCT I ON TYPE 

409 

1484 

0203 

LI NXWD, INSTWD 

POINT TO ADDITIONAL WORD 


I486 

1142 •- 



410 

1488 

04:1:1 

BLWP *CGET 

GET CHARACTER 

• 411 

148R 

0282 

Cl CHAR.. ..>20 

BLANK? 


1.48C 

0020 



:4 ±2 

14 BE 

1302 

JEO X0P2 

YES - GOOD 

413 
-41 4 

1400 

1.402 

0468 
05FC ‘ 

B QSVNRFX 

X U F’ 2 

NO - SYNTAX ERROR 

.'415 

14C4 

06R0 

. BL QAuE. f 1 

G E T F I R S T 0 P E R A N p 


1 4C6 

1308 •'* 




OUTPUT I NSTRUCT I ON 


F* X R R S M 4 i*1 1 R H 9 9 8 

DEFINED OP PROCESSOR 


3419 14CS 0468 
14 CR OES-‘ 


v L I.. I** ‘ 44 i .i 8 1 9 i* r .•**' i*' 6 

943925-9901.^* 


PRGE 0092 


B 


OUTPUT INSTRUCTION 


0RO I NST 
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PXRASM 

OPERAND PROCE: 


M I RA990 V2L1 1 7 : 44 : 18 
> S 0 R S 9 4 8 9 2 5 ~ 9 9 8 :1 * **. 


197/76 


7424 

3425 

3428 

cj. | ..- 1 4 

3438 
3431 

3434 

3435 

3439 
3448 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 
3458 


•+ : T 1 7 L E : G A D / R A 

: +' OPERAND PROCESSORS 

* REVISION: 83/81/74 

* ORIGINAL RELEASE 

* COMPUTER: 998, AS5EMBLV 

* ABSTRACT: 

* TWO ROUTINES ARE USED IN THE PROCESSING OF 

* OPERAND FIELDS IN AN INSTRUCTION. BASED ON THE 

* NATURE OF THE OPERATOR, EITHER A GENERAL 

* ADDRESS < ONE OF FIVE ADDRESSING MODES > OR 

* A WORKSPACE REGISTER ADDRESS PROCESSOR IS 

* CALLED FOR. GAD WILL INTERPRET THE OPERAND TO 

* DETERMINE WHICH MODE IS TO BE USED OR RA 

* WILL PROCESS A WORKSPACE REGISTER ADDRESS. 

* APPROPRIATE PROCESSING VALUES WILL BE RETURNED 

* IN THE CALLING ROUTINES. 

* CALLING SEQUENCE : 

; + : BL 0GAD OR BL ORA 

* ADDITIONAL NOTES: 

* WORKSPACE * 0PWP2/0PWP < SHARED WITH OPTVPE 

: + : AND XuPG > 

* GAD WILL PQSSIBLV CALL RA, THUS, ONE LEVEL OF 

* LINK RETURNS MUST BE SAVED IN WORKSPACE 

* REGISTER RSV. 

* ROUTINES CALLED : LKCHR, GETCHR, E/PR, RA, ER2, 

* SCAN, SRCSVM, GETSVL, ER8. 


MOV 11, RSV 


SAVE’ RETURN 


345:1 



+• 

INTERPRET GEN 

ERFIL. 

ADDRESS 

3452 







3453 





:f: :<f: :+: : 


3454 

14CE 

04 C 5 


CLR FL.GREG 


CLEAR TAG 

3455 

14D0 

04 CC 


CLR REG REG 


CLEAR REG I STEF: VALUE 

3456 

14D2 

8428 


BLWP 9LKCHAR 


LOOK AT CHARACTER 


14D4 

11 50 





*7- c:j •”:« 

14D6 

8282 


Cl TCHR, AT 

SON 

IS FIRST SVMBOL ‘0- 


14D8 

0848 





3458 

14DA 

1. ,3 y 


JNE REG 


NO, REGISTER TYPE 

3459 



* 




3468 

3461 




SVMBOLIC MEMO 

RV ftl 

D R E“ S S A N D I N D E X E ID M E M 0 R V A 

1.4 DC 

84:11 

•T« 

BLWP +CGET 


G E T C H A R A C T E R 

3463 

14DE 

05E8 


I NOT 0PPC 


MARK PRESENT LGC 


1 4 E U 

11 BA**’ 





4 6 4 

1.4F2 

Cl 8 4 


MOV INSFLG, 

TEMP ; 

IN COMPUTE NEW FLAG 

3465 

14E4 

1382 


JEQ EXPAD 


ii~ Zfc.Ku, purge i shipi 

3466 

14E6 

8A16 


SI A TEMP IN, 

1 

MULTIPLV BV THREE 

3467 

14E8 

A 186 


ft TEMP IN, 

I NS F I 

...G 

3468 



EXPAD 




3469 

14 E A 

0411" 


BLWP EXPET 


FWD REF I N EXPRESS I 0 

3470 

1 4 EC 

1003 


,JM P ADORED 


N 0 , C H E C K I F A E; S 0 R 

347:1 

1.4EE 

8224 


AT INSFLG, 


ADJUST INSTRUCTION T 


14F8 

8003 
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PXRASM 

OPERAND 

347 2 



3476 

3477 


3479 


3484 


3490 

3491 



3499 

3580 


502 

503 

504 

5 0 5 



M I RA990 V2L1 17 : 44 : 10 
PROCESSORS 948925-9901** 

14F2 1003 JMP MOVWD MOVE WORD 

ADORRD 

14F4 0584 INC I NSFLG MARK AS ABSOLUTE 

14FS A 1.20 A . 0EXWP+RELVL+RELVL, I NSFLG ADJUST I F RELOC 

14 F 8 0F28 

MOVWD 

1.4FA CCE0 MOV 0EXWP+RESLT+RESLT, *NXWD+ PLACE RESULT IN WORD 

1 4 F C 0 F 2 2 ' 

14FE 0420 BLWP QLKCHAR LOOK AT NEXT CHARACTER 

1500 1.1..5C" 

1592 0282 Cl TCHR, >20 BLANK? 

1584 0020 

1506 1311 JEQ EXIT2 VES - SYMBOL I C MEMORY EXIT 

1508 82C2 C TCHR.. COMMA COMMA? 

150 A 130F JEQ EXITS VES - SYMBOLIC MEMORY EXIT 

150C 0282 Cl TCHR, >28 LEFT PARENTHESIS? 

1.50E 0028 

1510 1607 JNE EXT2 

15:1.2 041.1 BLWP *CGET 

151.4 06 9 D BL +RAPT 

1.516 05C5 INCT Ft GREG 

1.51.8 0411 BLWP *CGET 

1.51. A 0282 Cl CHAR, >29 


151 C 

8029 







151 E 

1.384 

EXT 2 

JEQ 

EXT 3 


VES - INDEXED 

EX I T 

±520 

0420 


BLWP 

i s p p 2 


SVNTftX ERROR 


1522 

0B4E 







1524 

0620 


DEC 

Q S 0 W P 4 * S 0 P 7 •+• 4 

DIPT' 

DECREMENT SCAN 

POINTER 

1526 

00:16 

EXT3 






1528 

0459 

EXIT2 

B 

: + : RSV 


Rfc. i URN 


152ft 

05C5 


I NOT 

FLGREG 


MARK TAG AS 2 


1520 

0459 



+RSV 


RE i URN 



+ 

* 3 

■+: i, 

:+' j 

REG 

152E 8282 Cl TCHR, FiSTE IS FIRST SVMBOL RN ASTERISK 

1530 602ft 

1532 1382 JEQ I NDRCT 

1534 069D BL wRftP7‘ 

1536 0459 B +RSV 

I NDRCT 

1538 04:1:1 -BLWP *CGET 

:153ft 069D t BL : *EAPT 

i 5 3 C 0 4 2 0 B L W P 0 L K C H ft R 

1 53 E 1:1.53 ‘ 

12 4 U kl n,HR, >2B I S J. 1 ft *' •+■ 

1 542 802’B 


VES, INDIRECT 

NO - GET REGISTER RDDRESS 

RETURN 

SKIP 

G E T R E G I S T E R ft D D R E S S 
LOOK ftl CHAEAC I ER 


N u J R E. L- 1 M u R K b P ft C E R E G J. S i E. R ft D 0 ft E. S S , 
■! 1 1 R i\ P ft C E. R E G 1 5 T E R ft D D R E S S ft N D 
HD I RECT AUTO- T NC REHEN 


NO - EX I T WITH ERROR 

GET CHARACTER 

VES - GET REGISTER INDEX 

MARK 1 RG RS 2 

GET RIGHT PREEN 

I S I T R I GHT PR REN THES I S ? 



irfism * 


M I Rft* 

?90 V2L1 1 

•ERflWD 

PROCES 

>SORS 

94892 

35:16 

1544 

1302 

JEQ 

3517 

1546 

0585 

INC 

35:18 

1548 

0459 

8 

.35:19 




3528 



EX I T 4 

3521 

154fi 

0411 

BLWP 

3522 

1540 

0205 

LI 


154E 

0003 


rr 

1550 

0459 

B 

3524 




cr cr 



* WORKS 

3526 




3527 



Rft 

c:j •“» o 

1552 

0420 

BLWP 


1554 

0020 


3529 

1556 

1010 

JMP 

3530 

1558 

0420 

BLWP 


155 R 

0D94 


3531 

155C 

1014 

JMP 

cr " t ~- 

155E 

C2A0 

MOV 


1560 

0D36 


T kt, 

1562 

028 A 

01 


1564 

0007 


3534 

1566 

150F 

JQT 

KSj crj 

1568 

024ft 

ftNDI 


156R 

0002 


3536 

156C 

1300 

JEQ 

3537 

156E 

0420 

BLWP 


1570 

0D6E ■ 


3538 


C2ft0 

iTh r » r- ■ 

MOV 

3539 

•„.» i *4 

1576 

1002 

JMP 

3540 



VftLCKP 

354:1 

1578 

02ft 0 

MOV 


:1.57ft 

0012 


3542 



VftLCHK 

c\. 

±570 

030ft 

MOV 

3544 

157E 

1103 

JLT 

3545 

1580 

028ft 

0 1 


1582 

001.0 


3546 

1584 

1103 

JLT 

3547 



ERREX 

3548 

1586 

0420 

BLWP 


1588 

0B66 


3549 

158ft 

0400 

CLP 

3550 



VfiLOUT 

3551 

1580 

8458 

RT 


*RSV 


PAGE 0995 


VES, ftUTO I NCREMENT 
MARK TAG AS 1 
RETURN 


GET CHARACTER 
MARK TAG AS 3 

RETURN 


WORKSPACE REGISTER ADDRESS PROCESSOR 


GET SYMBOL VALUE 


NUMERICAL VALUE 
LOOK UP SYMBOL 

NOT THERE - ERROR 


IS SYMBOL DEFINED 

NO, ILLEGAL REGISTER 
IS SYMBOL ABSOLUTE 

NO- I L LEGAL REG I STEP 
GET SYMBOL' VALUE 


MOV @SYM80L+VRLUEf VALUE, SCVAL 


CHECK VALUE FOR RANGE 


M 0 V 0 S C W P + R E S L T + R E S L T .. S C V A L 


IS VALUE LESS THAN ZERO 
YES, ERROR 

IS VALUE LESS THAN SIXTEEN 
YES - GOOD 
ILLEGAL REGISTE R 
CLEAR TERM 


RETURN 


PXRASW 


MIRA 9 

98 V2 

Ll :.t. 

7 : 44 : 1© 19 

f i- fo 

p A Li E. 0 09b 

PRINT 

PH Lib HE 

RDER 


94892 

5-9901** 



3554 








3555 




PRINT 

PAGE HERDER 

WORKS 

PACE AREA 

3556 








3557 



PGWP 





3558 

158E 

0BF4 •** 


DATA 

BINDEG 

R0 

DECPT 

3:559 

1590 

0000 

LNCNT 

DATA 

0 

Ri 

LNCTR 

3560 

1592 

0000 

NPAGE 

DATA 

0 

R2 

PGCNT 

3561 

1594 

00 C 2 


DATA 

TITLE 

R 2 

TITPT 

3562 

’■j 5 9 6 

0BC0” 


DATA 

BINVL 

R4 

B I N VP 

3563 

1598 

0007 

TABS 

DAT A 

7.. 12.. 30.. 32.. 0 

R5-R 

9 TAB SETTINGS 


159fi 

000C 







159C 

001E 







159E 

01020 







15R0 

010010 






3564 

15R2 

00100 


DAT A 

0 

R10 

IQPARM 

3565 

15R4 

2R2R 

FWDMK 

DATA 

•" :+*:+: * ' 

Rll 


3566 

15R6 

0000 

LABSN 

DATA 

0 

R12 


3567 

15R8 

0000 


DATA 

0 

R13 

OLD WP 

3568 

15hR 

001010 


DA 1 A 

0 

R±4 

OLD PC 

3569 

15RC 

01000 


DATA 

01 

R15 

'OLD SR 




J1 U! 


P/RASM MIRA99© 

print Prop herder 


PRGE 0097 


.1 17 : 44 : 1 © 197/76 

948925—9901** 


!j“» i* - ’ 1. 




T I TI E : 

PGHDR 

2572 



:+: 


PRINT PAGE HEADER 

257.7 




REVISION 

03/01/74 

2574 





ORIGINAL 

2575 





02/15776 

2576 





MODIFIED TO RUN WITH PXRMTR 

*7* nr “7 "7 

i i 




COMPUTER : 

990.. ASSEMBLV 

2578 




RBSTRRCT : 

PGHDR PRINTS A PAGE HEADING ON A NEW PRGE 

2579 





AT LEAST EVERV FIFTV-FIVE LINES. THE LINE 

2580 





COUNT IS THEN RESET TO FIFTV-FIVE FOR THE 

258:1 





NEXT LINE. 

2582 



:+: 

CALLING SEQUENCE: 

2582 





BLWP 0 PGHDR 

2584 



* 

ADDITIONAL 

NOTES: 

“7 nsj c« r-“ 





WORKSPACE = PGWP < UNSHARED > 

2586 





ROUT I NFS CALLED : B I NDEC, PR I NTP 

2587 






2588 



P 

THDR 


7589 

±5 ALT 

158E 


DATA 

PGWP, PGBG WORKSPACE, START 


1.5B0 

1582 




7590 



Pi 

3BG 


259:1 

15B2 

C282 


MOV 

TITPT, I OP ARM POINT TO TITLE 

2592 






2592 



* 

-J. 

CHANGE Pf 

IGE COUNT 

J “• ’••!• 

2595 

1584 

0582 

T* 

INC 

PGCNT INCREMENT PAGE COUNT' 

2596 

1586 

0502 


MOV 

PGCNTj *BINVP CONVERT PAGE COUNT 

2597 

1.588 

04:18 


BL.WP 

*DEGPT TO DEC IMAL AND 

2598 

158ft 

00F8 " 


DAT ft 

PAGNUM PL ACE I N T I TLE L I NE 

2* 5 9 9 






2680 
"7 «£* iT-i 




PRINT TITLE 

7682 

15BC 

15BE 

0420 

19D2 

•+ ; 

BLWP 

0PRINTP PRINT TITLE 

7602 

2604 




CORRECT i. 

J [NE COUNT 

7605 



■r 



2:606 

15C0 

0201 


L I 

LNCTR, 55 SET LINE COUNT 


1.5C2 

0027 




7607 

1.5C4 

0280 


RTWP 

RETURN 


PAGE 0898 


F'KRRSM 


M I RR 9 9l* V 1 I. 

.1. ±7 

: 44 : 16 

± 97/76 PAGE 0098 

F I X FOR 

'ink!.; 1 R 

EPS 

‘3 <|. 0 q y j*“ 

~990± : + : * 



361.0 

rs 361:1 

15C6 

FXFWP 

0000 

ORTH 

0 

WR6 

TEMP 

J 3612 

1 5C8 

0000 

DRTR 

0 

WR1 

PTR1 

^ <61 3 

15CA 

0000 

DRTR 

© 

WR2 

SOBS, F'TR. 

36:14 

15CC 

0000 

DRTR 

0 

WR3 

FRTVRL 

36:15 

15CE 

0000 

DRTR 

0 

WR4 

RELREG 

S 6 1.6 

15D0 

0000 

DRTR 

0 

WR5 

FLGREG 

36:17 

15D2 

0000 

DRTR 

0 

NR6 

HPTR1 

36 18 

1.5D4 

0000 

DRTR 

0 

WR7 

HPTR1V 

36:19 

15D6 

11BR" 

DRTR 

PPG 

WR8 

PPCPT2 

3620 

15D8 

±186 -* 

DRTR 

ENDFRT 

WR9 

FRTEND 

3 6 2 1 

15DR 

0000 

DRTR 

0 

WR16 

TEMP2 

3622 

1.5 DC 

0000 

DRTR 

0 

WR11 

RETURN 

3623 

15DE 

0000 

DRTR 

0 

WR12 

SVRL 

3624 

15E0 

0000 

DRTR 

0 

WR13- 

OLD WP 

3625 

15E2 

0000 

DRTR 

0 

WR14 

OLD PC 

3626 

15E4 

0000 

DRTR 

0 

HR 15 

OLD SR 


c 



PXRASM MIRR998 V2L.1. 17: 44: 10 

F IK !- UPWARD REFS 948925— 990lH ss * 
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TITLE: FIXFRF 

FIX UP FORWARD REFERENCE 
REV I S I ON : 03X01/74 

. ORIGINAL RELEASE 
03/15/76 

MODIFIED TO RUN WITH F'XRMTR, AND FOR DORG 
PROCESSING. 

COMPUTER : 990, ASSEMBLY 
ABSTRACT : 

FOR EACH SYMBOL THAT HAS BEEN RECENTLY DEFINED- 
PREVIOUSLY REFERENCED BUT WHOSE REFERENCES HAVE 
NOT YET BEEN RESOLVED-, THE FORWARD REFERENCE 
TABLE ENTRIES CORRESPONDING TO THE SYMBOL. ARE 
RESOLVED AND THE APPROPRIATE OBJECT RECORDS ARE 
OUTPUT. DIFFERENT PROCESSING OCCURS FOR 
SIXTEEN-BIT AND EIGHT-BIT REFERENCES. THE 
TABLE IS CONDENSED FOR EACH RESOLUTION. 

CALL I MG SEQUENCE : 

BL.WP OFIXFRF 
ADDITIONAL NOTES: 

WORKSPACE = FXWP < UNSHARED > 


364.9 



:+ 


ROUTINES GALL, .ED 

ER4, TRUNK, B INHEX, OUTOB, PENT! 

3650 



FIXER F 



3651 

15E6 

15C6 ‘ 


DATA 

T| 

Tj 

tI 

WORKSPACE 

3652 

15E8 

15EA ■' 


DATA 

FXFBG 

START 

2653 



F 

XFBG 



3654 

15EA 

0201 


1 .... I 

PTR1, FRT 

POINT TO ENTRY BEING CHECKE 


15EC 

00ft 0 





3655 

15EE 

j.: H s 1 


MOV 

*F‘ i"P:l f . + F i-i. . i- i 

PLACE LOCATION INTO PRESEN) 

3656 

15F0 

C081. 


MOV 

FTP!., PTR2 

POINT TO MOVING LOCATION 

*7* u"‘ ~7 

O ..,,5 j 



:+ 




3658 




EXAMINE FRT ENTRV FOR 

CORRESPONDENCE TO SYMBOL 

3659 



:+ 




3660 



c 

KENT 



3661. 

•j 5F2 

8641 


c 

FTR1, *FRTEND 

PAST THE END OF TABLE 

3662 

15F4 

1.50C 


JOT 

EXE 

VES - EXIT 

3663 

15F6 

C0D1 


MOV 

••+--PTR1.. FRTVAL 

Nll CuMPARE. PTR OF P’TRl TO 

J;. I’H 4 

15F8 

0243 


AND I 

FRTVAI. , >3FFF 

SYMBOL NUMBER 


15 FR 

3FFF 





3665 

15FC 

80E0 


G 

OSYMBOLMslSBIT h-N* 

SB IT, FRTVAL 


15FE 

0D42 •- 





< 6 6 6 

1,600 

130E 


J EO 

FOUND 2 

SAME 

j„~j 

1602 

CCB1 


MOV 

:t:p f R •+• .i •••(*■■ p‘ j R .-pi- 

COPY ENTRY 

3668 

1.604 

GOBI. 


MOV 

*PTR1 + , *PTR2+ 

COPY CUM SUM 

3669 

1606 

GOBI 


MOV 

*PTR1+, *PTR2+ 

CUPV RELUC AND FLAGS 

3680 

1 606 

C61.1 


MOV 

*PTR:;L. *PPGP T2 

PLACE LOCATION INTO PRESEN 1 

267:1 

160ft 

GGBl 


MOV 

; + : p | R 1, 4* .. .I* F * i R2+ 

CORY LOG OF NEXT MLB 

26 73 

1 60C 

1.0F2 

■A- 

.IMP 

CKENT 

GET NEXT ENTRY 

3674 



A- 

HOD I F 1 

V b. N D LI b b R j I H H 1 

...E:. Mb i ER ALL LU NDhNb A i .1 UN DUNE 

“I; jT *7* 



•+ 




2 676 



F 




’7 

160E 

0641* 


DEC T 

PTR2 

POINT TO END OF FRT 

,;7 “7 

-j 61,0 

G042 


MOV 

PTR2, PTE 1 

SAVE END OF FRT 


PR GE 0:180 


R.RSM t 


MIRAS 

90 V21...1. 1 

7 : 44 : 10 197 

X FORM 

RRD F 


94892 

5-990:1 : + :: + : 

2679 



* 


2680 



CLRFRT 


2681 

1612 

84 F 2 

CLR 

*PTR2+ 

2682 

1614 

8642 

c 

PTR2, +FRTEND 

268.2 

1616 

12FD 

JLE 

CLRFRT 

,£ Fi !~i 4 

1618 

060:1 

DEC 

PTRl 

2685 

161fl 

064:1 

MOV 

PTR1, +FRTEND 

2686 

1.61C 

0280 

RTWP 


6 8 7 





2688 



:+•' PROOF 

SS FOUND ENTRY 

2689 





2690 



F0UND2 




Pi p* .j 

! T 

per j pPh . VI LMM 


1620 

0100 



2692 

1622 

C0F1 

MOV 

*PTRi+, FRTVRL. 

2692 

1624 

1502 

•JGT 

POS 

2694 

1626 

0204 

LI 

RELREG, >FF00 


1 6 8 

FF 08 



2695’ 

162 A 

050C 

MEG 

SVAL 

2696 



ROS 


2697 

162 C 

C1A0 

MOV 

0 S Y M B 0 L + F L A G S 


162E 

8D26 



26.98 

1620 

0 2 4 6 

HMD I 

HPTR1.. SABS 


1. 6 2 

0002 



2699 

1624 

1301 

J E b! 

RELOC 

2780 

16.26 

04 C 4 

CLR 

RELREG 

2701 



RELOC 


2702 

1. 6 8 

Cl 8:1 

MOV 

PTRl, HPT PL 

2702 

162 A 

05C6 

I NCT 

HPTR1 

2704 

162C 

C1D6 

MOV 

*HPTR*L. HPTR1V 

2705 

162E 

25E0 

CZC 

0TWO, HPTR1V 


16418 

1:1 PC-' 



2706 

1 6 4 2 

1206 

JEQ 

BYTE IX 


1644 0646 

1.646 A DSC 
1648 1.90 

164R 0428 


DECT HPT El 
R SVAL, *HPTR:I .+ 

JNO NOVEL 
BLWF' 0ER4 

JMP NOVEL. 

P R 0 0 F 5 S R V T E R E F F R F. ft C E 


CLERR FRT RRER 
PRST TABLE 
NO - CONTINUE 
VES : 

ADJUST END OF TABLE 
RETURN 


MARK SYMBOL -PLUS RELOC-' 

TEST ADD/SUBTRACT BIT 
MINUS FLAG NOT SET - SKIP 
MARK SYMBOL -'MINUS REL.OC ' 

.NEGATE SYMBOL VALUE 

..AGS.. HPTR1 GET SYMBOL 'S FLA* 

ABSOLUTE? 


SYMBOL I S PEL OCA TABLE 
NO . MARK SYMBOL ■' ABSOLU 

C R E Fi T E T E I'* i P 0 F: A R Y H 0 L D F 
F‘ 0 T N 7 T 0 F L. A G S / R E L 0 C 
GET VALUE 

I S TH I S A BYTE I NSTRU0 T 1 i 

Y E S — P R 0 C E S S 
N 0 . C H A N G E V A L I. J E 
ADD VALUE! 7 0 i. .UMSUM 
NO OVERFLOW 
T RUN C M 7 1 0 ft F: R R 0 R 


7:1 6 

:1650 

0606 

DEC 

HF' TR.1 

F*0 1 

NT TO L 

Oft ORDER Bt 

7:17 

1.652 

D01.6 

movb 

*HPTR±, TEMP 

GET 

LOW OF 

DER BYTE 

7:1,8 

1654 

0880 

8EA 

TEMP, 8 

EXT 

END THE 

S I ON 

7” ±9 

1656 

A 000 

A 

SVAl., TE’MF 1 

ADC 

IN Vhi. 

UE 

720 

1658 

064 0 

DECT 

TEMP 

SUE 

TRACT 7 

ftu 

72:1 

1 65 A 

OF; 4 2 

DEb f 

PTP2 

SUE 

.’TRACT 1. 

.U*..,A i i uN 


1 650 

60 22 

C" 

: + : p 1 R “h .. f F j'* j E 





165F 

08:10 

, SR A 

\ F HP * 1 

DIE 

'IDE BY 

TWO 

724 

:i 660 

06 A O 

FI. 

0 TRUNK 

TEE 

; 7 FOR 7 

'RUNG A T I ON 


i EMP.. 8 

MuVB i EMP.. : + ; HP I R 


G E T D I S P L Fi C E. 1 1 1 E N T 
I NSFRT I SR 


RASH 

MIRA990 

V2L1 1 

7 : 44 : 18 197/76 

PAGE.' 0101 

X FORWARD 

REFS 

94892 

5“" 990:1 r + :: + : 


72 7 1668 

8247 

RNDI 

HPTR1.V, 1 

GET RELOC OF LOCATION 

166ft 

0001 




772 8 166C 

0ft 8 7 

SLft 

HPTR1V, 8 


ST^'-J 166E 

~?nro-7 

i o r 

SB . 

HPTR1V, +HPTR1 

CORRECT FOR MINUS LOC 



PXRASM MIRA990 

FIX FORWARD REFS 


197/76 


PAGE 0102 


V2L1 17 : 44 : 10 
9 4 8 9 2 5 9 9 8 1 : +* : + : 




32 



* 

CHECK 

FOR PROPER RELOC 

ATABILITV OF RESULT 

34 



•+• 

NOVFL 




35 

1678 

BD84 


RB 

RELREG, *HPTR1+ 

FIX RELOC FOR RESOLVED SVMBGL 

38 

.1672 

Cl 56 


MOV 

+HPTR1, FLGREG 

GET FLAGS VALUE 

23 

1674 

0606 


DEC 

HPTR1 



1676 

D136 


HOVE: 

*HF'TR1+, RELREG 

GET RELOC VALUE 

3 9 

1678 

130A 


JEQ 

SETOUT 

CUMSUM ABSOLUTE 

40 

.1.67 A 

0884 


SEA 

RELREG, 8 

TEST REL.QCATAB I L I TV 

41 

1670 

0284 


Cl 

RELREG.. 1. 

IS CUMSUM ACCEPTABLE RELOC 


167E 

0001 





42 

1680 

1.804 


JNE 

TRERR 

NO - TRUNCATION ERROR 

43 







44 

1682 

• 256© 


CZC 

0 T H 0 , F L G R E G 

IS THIS A BYTE INSTRUCTION 

45 

..LtT'OH- 

1686 

ibU 

1.603 


JNE 

SETOUT 

NO - OUTPUT INSTRUCTION 

48 

1.688 

0404 


CLP. 

RELREG 

VES - CLEAR RELOCATAB I L I TV 

4 7 



:+: 




48 



TRERR 



- 

49 

168R 

©420 


BLUR 

0ER4 

TRUNCATION ERROR 


168C 

©856 -* 





58 







5:1 




OUTPUT INSTRUCTION 


53 

54 

168 E 

0642 

SETOUT 

DECT 

PTR2 

REMOVE LOCUTION FROM PET 

55 

1690 

C802 


MOV 

PTR2, 0 PTLOC 

POINT TO LOCATION 


1 8 9 2 

1698 •" 




- 

•58 

1694 

»ir 0 i^r 

042© 


BLWP 

0B INHEX 

G E 7 A S C 1 1 K E P R E S E N T H 7 I u N 

1 k~ ~r 

0 1^1 

1 6 9 8 

!:::* n. ti 

1.698 ■*' 

PTLOC 

DATA 


L 0 C R T 1 0 N V A L U E 

’58 

1.69 A 

0.132 


DRTR 

LOCNUM 

i ..OCR 7’ I ON I N OUTPUT L I NE 

'59 

1.69C 

C801 


MOV 

PTRl, 0PTLOC2 

POINT TO VALUE 


16.9E 

16R6 





'80 

lfc*A0 

05C1 


INCT 

PTRl 

POINT TO FLAGS 

’61 

16R2 

0426 


BLWP 

09 INHEX 

CONVERT 


16A4 

0BE0 ■’ 





82 

16R6 

16R6 '* 

PTLDC2 

DRTR 

$ 

DATA 

‘83 

16R8 

0:138 " 


DRTR 

INSVRL 

LOCATION FOR DATA 

'64 

16RR 

D828 


MOVB 

0BLANK, 0RELMRK 

CLEAR RELOCATAB I LI TV MARK 


16RC 

17 DC *'* 






16 RE 

01 3 C 





'85 

16B0 

Cl 84 


MOV 

RELREG, RELREG 

IS VALUE RELOCATABLE 

66 

1682 

1363 


JEQ 

0L2 

NO 

’67 

1684 

D820 


MOVB 

0QT, 0RELMRK 

VES, MARK ON OUTPUT 


1686 

1R6B ' 






1688 

013C •“ 





'68 



0L2 




8y 

16BR 

•j Apr 

0245 

000’j 


RNDI 

FLGREG, 1 

GET RELOCATAB I L I TV 

*70 

I. O D 

16BE 

0207 


1 .... I 

HPTR1V, MA I NW+RELRBS+RELABS 


16C0 

042E '■ 





"T.j 

16C2 

Cl 9 7 


MOV 

+HPTR1V, HF'TRl 

DISPLACE PRESENT RELOC VALUE 


o 


PXRASM M I R FI 990 

FIX FORWARD REFS 



V2L1 17 : 44 : 10 197/76 PAGE 0102 

948925-9901** 



S c' 

16C4 

C5C5 


MOV 

FLGREG, *HPTR1V 


2772 

1606 

0500 


INC 

0OTWP+NCONS+NCONS 

SET NGN-CONSECUTIVE FLAG 


1608 

16E6" 





Jr- »*' r* 4 

16Cfl 

0420 


BLWP 

0OUTOB 

PLACE IN OBJECT BUFFER 


1600 

170R-* 





~’77 c: I 

16CE 

0500 


INC 

0OTWP+NCONS+NCONS 

SET NON-CONSECUTIVE FLAG 


16D0 

16E6*'" 





2776 

16D2 

C5C6 


MOV 

HF'TRl, +HPTR1V 

REPLACE PRESENT RELOC VALUE 

Jr- »' i i* 

16D4 

L-fc'2'0 


MOV 

0FWDMK, 0LQCNUM+4 

PLACE •-+*•' INTO OUTPUT LINE 


16D6 

15R4-* 






16D8 

0126 *' 





2778 

16Dft 

0428 


BLWP 

0PRNTLN 

PRINT OUTPUT LINE 


1.6DC 

I860 





2779 

16DE 

05C1 


I NOT 

PTR1 

POINT TO LOCATION FOR NEXT ML 

2780 



* 




2781 




SKIP i 

D'v'ER ENTRV TO CONDENSE TABLE 

2782 

16E0 

C611 

-+• 

MOV 

*PTR1, : + ; PPCPT2 

ADJUST PRESENT PC 

2784 

16E2 

CCBl 


MOV 

*PTR1"K» *PTR2+ 

COPV NEW LOO 

2785 

16E4 

1086 


JMP 

CKENT 

'CHECK NEXT ENTRV 



g\ 

KJ 


PXRASM 


M I R ft 998 

V2 

-1 17:44: 10 

197/76 

PAGE 0104 

OUTPUT' 

OBJECT 

RECORD 


9 4 8 9 2 5 — 9 9 01 1 : + : : + : 


( 

»’* 88 
3789 


:+: 

OUTPUT OBJECT RECORD WORKSPACE AREA 

3798 

3791 

16E6 

8008 OTWP 

DATA 0 

R0 

NOONS 

7 y 

1SE8 

8000 Ct 

::SM 

DATA 0 

R1 

CKSUM 

3793 

16EA 

3788 


DATA >3700 

R2 

SVN 

3794 

1C EC 

3908 


DATA >3900 

R3 

ABVL 

3795 

IEEE 

0000 


DATA 0 

R4 

OBJPT 

3796 

16F0 

00ft F •' 


DATA OBJRCD+55 

R5 

CDALIM 

3797 

16F2 

46801 


DATA >4600 

R6 

FVL 

3798 

16F4 

01010101 


DATA 0 

R7 

I NSPT > HVAL 

3 7 9 9 

16F6 

42010 


DATA >4200 

R8 

ABDVL 

3888 

16F8 

010104 


DATA uBJRcD+60 

R9 

CDLIM 

3801 

16FA 

0000 


DATA 0 

R10 

IOPARM 

3882 

16FC 

0101010 


DATA 0 

Rll 

RETURN 

3803 

IbFE 

0000 


DATA 0 

R12 

CKPT 

3804 

1700 

001001 


DATA 0 

R13 

OLD WP 

3885 

1702 

0000 


DATA 0 

R14 

OLD PC 

3886 

1704 

0101001 


DATA 0 

R15 

OLD SR 


197/76 


PAGE 0105 


F'XRASM MIRA990 V2L1 17:44:10 

OUTPUT* OBJECT RECORD 948925-9901** 


3808 





3889 



* TITLE: 

OIJTOBJ 

3810 




OUTPUT OBJECT RECORD 

3811 



* REVISION: 

03/01/74 

3812 




ORIGINAL 

3813 



M-: 

03/15/76 

3814 



:+: 

MODIFIED TO RUN WITH PXRMTR, DORG PROCESSING 

3815 




ADDED 

3816 



* ABSTRACT: 

THIS ROUTINE PLACES OBJECT CODE INTO 

3817 



•+: 

THE OBJECT BUFFER FOR OUTPUT. IF NON- 

£T; Cj 




CONSECUTIVE CODE IS BEING ENTERED, THE 

3819 




DATA ADDRESS WILL BE PLACED INTO THE 

3820 




CODE. OTHERWISE, JUST THE DATA WILL 

3821 




BE PUT INTO THE LINE. WHEN THE PRESENT 

3822 



: 4 : 

LINE WILL NOT HOLD THE FULL DATA WORD 

3823 



:+: 

< AND ADDRESS, IF APPLICABLE:?, THE LINE 

3824 



+ 

OF OBJECT WILL BE WRITTEN BEFORE THE 

3825 




NEW OBJECT IS ADDED. 

3826 




CLROBJ IS A SEPARATE ENTRY TO FORCE A 





BUFFER THAT IS NOT FULL TO BE WRITTEN 

"s O O jHIj 




TO TAPE. 

3829 



* CALLING SEQUENCE: 

3830 




BLWP 0OUTOBJ 





OR 

C; 7? *“• 




BLWP ©CLROBJ 

o "If* “Ij* 




OR 

38.34 




BLWP ©OUT OB 

3835 



* ADDITIONAL NOTES: 

3836 




WORKSPACE = OTWP < UNSHARED > 

JS37 



:+: 

ROUT I NES CALLED : OTRCD, B I NHEX, WR I TE 

3839 



OIJTOBJ 


3840 

1786 

16E6" 

DATA 

OTWP.* OTBG WORKSPACE.* START 


1708 

170E" 



3841 



OUT OB 


3842 

170fi 

16E6-" 

DATA 

OTWP, OUTO WORKSPACE, START 


170C 

1 716 ■' 



3843 



OTBG 


3844 

170E 

C2E0 

MOV 

0DORGFL, Rll EXIT IF IN DORG 


1710 

lies- 



3845 

1712 

1301 

JEQ 

OUTO 

3846 

1714 

0380 

RTWP 


384 7 



OUTO 


•:] J-*| »-J. |~J 

1716 

04E0 

CLR 

QOTBWP+BVTFL+BVTFL CLEAR BYTE BOUNDARY FLAG 


17:18 

1.7D8" 



/:• O *r 

3850 



* TEST FOR 

NECESSITY OF ADDRESS IN OBJECT LINE 


17:18 

C 0 0 0 

MOV 

NCONS, NCONS CONSECUTIVE VALUE? 

3853 

171C 

1312 

JEQ 

OVAL YES 

3854 

171E 

04 C0 

CLR 

NCONS NO, OUTPUT ADDRESS 

3855 

1720 

8:144 

c 

QBJPT, CDALIM IS THERE ROOM? 

3856 

1722 

1102 

JLT 

ROOM YES, PLACE IN LINE 

C» nr 



OUTRCD 



-RASH 


MIRA990 V2 

Ll 17 : 44 : 10 197/76 

PAGE 0106 

JTPUT* 

OBJECT 

RECORD 

9 4 8 9 2 5 - 9 9 8 1 : + : : + : 


3858 

1 1' 2 4 

0680 


BL 0OTRCD 

OUTPUT RECORD 


1726 

1764'* 




3859 



ROOM 



3868 

1728 

D503 


MOVE! ABVL, +OBJPT 

MOVE IN ABSOLUTE MARKER 

3861 

172A 

C320 


MOV 0MAINW+RELABS+RELABS, CKPT IS CODE RELOCATABLE' 


172C 

042E-' 




3862 

172E 

1302 


JEQ ABOK 

NO - SKIP 

3863 

1730 

B520 


AB 0EIGHT+1, *GBJPT 

MARK AS RELOCATABLE 


1732 

0071-' 




386*4 



* 



3865 



* MOVE ADDRESS INTO OBJECT 

CODE 

3866 






3867 



fiBOK 



3868 

1734 

0584 


INC OBJPT 

POINT INTO OBJECT BUFFER 

3069 

1736 

0287 


LI INSPT, LOCNUM 

POINT TO ADDRESS IN LINE 


1 r* s y 

0132-' 




3870 

173A 

DD37 


MOVB + INSPT+, +OBJPT+ 

MOVE ADDRESS 

3871 

173C 

DD37 


MOVB +INSPT+, *0B JPT + 


3872 

173E 

DD37 


MOVB I NSF'T +, *GB JPT + 


3877 

1740 

DD37 


MOVB * I NSP’T +j : + : 08JPT> 

" 

3874 



0V8L 



3875 

1 r’ 4 2 

8244 


C OBJPT, CDLIM 

IS THERE ROOM 

3876 

1744 

14EF 


JHE OUTRCD 

NO - OUTPUT RECORD 

o r r 



* MOV 

E DATA INTO OBJECT CODE 


3879 



* 



3880 

1746 

D508 


MOVB ABDVL, *OBJPT 

MARK AS ABSOLUTE DATA 

3881 

1 r* 4y 

9820 


CB 0QT, 0RELMRK 

IS DATA RELOCATABLE? 


174R 

1868 •" 





174C 

01 3 C *" 




3882 

174E 

1602 


JNE ABDAT 

NO - SKIP 

7 !**•.' 8 7 

1750 

8520 


88 0Z1, *OBJPT 

VES- ADD IN RELOCATAB I L I TV 


1752 

006 E •' 




3884 



ABDAT 



3885 

1754 

8584 


INC OBJPT 

POINT INTO OBJECT 

7886 

1756 

0207 


LI INSPT, INSVAL 

POINT TO DATA 


1758 

0138 •" 




7887 

1758 

DD37 


MOVB +INSPT+, * OBJPT + 

MOVE IN DATA WORD 

“■ O O o 

175C 

DD37 


MOVB + INSPT+, +OBJPT+ 


3889 

175E 

DD37 


MOVB *INSPT+, *OBJPT+ 


3890 

1760 

DD37 


MOVB *INSPT+, : + : OB JPT + 


3891 

1762 

8380 


RTWP 

RETURN 

3892 






7887 



* OUTPUT RECORD 


3894 






3895 



OTRCD 



7896 

1764 

DD02 


MOVB SVN, : + : OB JPT + 

COMPUTE CHECKSUM 

3897 

1766 

02 0C 


LI CKPT, OBJRCD 

POINT TO START OF OBJECT 


1768 

0078 




3898 

1768 

04 Cl 


CLR CKSUM 


3899 






3908 

* 7 ' O m -1 



CO 

MPUTE CHECKSUM 


hJ .1. 

3982 



CKCOM 



3903 

176C 

84 C 7 


CLR INSPT 

CLEAR CHARACTER 


PFtGE 8107 


PX'RASM M I R ft 9. 98 V2L1 17:44:10 1 97/76 

OUTPUT 'OBJECT RECORD 948925-9901** 




904 

Ir'SE 

D1FC 


MO'v'B 

*CKPT+, INSPT 

GET CHARACTER 

905 

1770 

06C7 


SWPB 

INSPT 


906 

1772 

R047 


R 

INSPT.. CKSUM 

ADD IN CHARACTER VALUE 

907 

1 (' (' 4 

810C 


C 

CKPT, OBJF'T 

FINISHED? 

908 

1776 

11FR 


JLT 

CKCOM 


989 

1778 

0501 


NEG 

CKSUM 


910 

177A 

C804 


MOV 

OBJPT.. 0CONLOC 

CREATE CONVERSION LOCN 


J.. r r L* 

1784 •- 





911 

177E 

0420 


BLWP 

0B INHEX 

CONVERT 


1780 

0BE0 





912 

1782 

16E8-" 


DAT R 

CKSM 

CHECKSUM VALUE 

913 

1784 

0000 

CONLOC 

DATA 

0 

INTO OBJECT BUFFER 

914 

1786 

0224 


fil 

OBJPT, 4 

ADJUST OBJECT POINTER 


1788 

0004 





915 

178A 

DD06 


MOVE: 

FVL, *OBJPT+ 

PUT OUT •" EX- 

916 

178C 

D520 


MOVE: 

OCR, *OBJPT 

TERMINATE WITH CR 


178E 

0101 





917 

1798 

0204 


LI 

OBJPT, OBJRCD 

INITIALIZE OBJECT POINTER 


1792 

0078 •" 





918 



OTWRT 



' 

919 

1794 

C284 


MOV 

OBJPT, I OP ARM 


928 

1796 

0420 


BLWP 

0 WRITE 

WRITE RECORD TO OBJECT FILE 


1798 

19C2 •" 





921 

179fl 

1309 


JEQ 

CLNBUF 

CONTINUE, IF NO ERROR 

922 

179C 

020R 


L.I 

IOPARM, RDVMSG 

PRINT MESSAGE TO READV OBJ 


179E 

0119-' 





■923 

17R0 

0428 


BLWP 

OPRINTN 



:17R2 

19D6 





’924 

17R4 

020R 


LI 

IOPARM, INSBIJF 

WAIT FOR RESPONSE 


17R6 

017C" 





:925 

17R8 

0420 


BLWP 

0KEVIN 



17RR 

19SR-' 





926 

927 

17RC 

10F3 


JMP 

OTWRT 

TRV AGAIN 

928 



* CLERR OBJECT BUFFER 


929 



* 




930 



CLMBUF 




931 

17RE 

CD20 


MOV 

©BLANK, *OB JPT + 

BLANK OUT RECORD 


17B0 

17DC " 





• q ■“:« 

17B2 

0284 


Cl 

OBJPT, OBJRCD+71 



17B4 

00BF-' 





•933 

:17B6 

11FB 


JLT 

CLNBUF 


:934 

17B8 

0204 


LI 

OBJPT, OBJRCD 

INITIALIZE OBJECT POINTER 


17BR 

0078 •" 





935 

17BC 

045B 


RT 



936 



CLROBJ 




937 

17BE 

.•I “p i~* rrw 

16E6 

•i “7 r* o •* 


DATA 

OTWP, CLRBG 

WORKSPACE, START 

■938 

„L i L-U 

J.. r L- c.. 

CLRBG 




•939 

17C2 

06R8 


BL 

0OTRCD 

OUTPUT OBJECT RECORD 


17C4 

1764 * 





:940 

1.7C6 

0388 


RTWP 


RETURN 


C 


PXRASM 

OUTPUT ‘OBJECT 


3943 

1 , i*’ l„. i~! 

3944 

17CA 

3945 

17CC 

3946 

17CE 

3947 

17D0 

3948 

17D2 

3949 

17D4 

3958 

17D6 

3951 

17D8 

3952 

17DA 

3953 

17DC 

3954 

17DE 

3955 

17E0 

3 y 5 

17E2 

3957 

17E4 

3958 

17E6 


M I R R 9 9 0 V 2 L 

..1 r 

BVTE 


94892! 

0000 

OTB WP 

DATA 

4100 


DATA 

0100 


DATA 

013 A" 


DATA 

0138' 


DR+R 

3030 


DATA 

0000 


DATA 

0000 


DATA 

0000 


DATA 

1706' 


DATA 

2020 

BLANK 

DATA 

0134 ' 


DATA 

0135 ' 


DATA 

0000 


DATA 

0000 


DATA 

0000 


DATA 


: 44 : 10 197 / 7 ' 

i-9901**: 

0 

>4100 

>100 

INSVAL+2 

INSVflL 

>3030 

0 

0 

0 

OUTOBJ 

>2020 

LOCNUM+2 

LOCNUM+3 

0 

0 

0 
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WR0 INSPT2 

WR1 ABET 

WR2 AGDD 

WR3 SBYT 

WR4 FBVT 

WR5 Z2ER0 

WR 6 SHLD 

WR7 0BJPT2 

WR 8 BVTFL 

WR9 OTOBPT 

WR10 BLNNK 

WR11 L0CP2 

WR12 L0CP3 

WR13 OLD WP 

WR14 OLD PC 

WR15 OLD SR 


PXRASM MIRA990 V2L1 17:44:10 197/76 PAGE 0109 

OUTPUT* OBJECT BYTE 948925-9901** 


3968 



:+: 

TITLE: 

OUTBVT 

3961 






OUTPUT OBJECT BVTE 

3962! 



:+: 

REV I 

SION: 

03/01/74 

3963 






ORIGINAL RELEASE 

3964 






03/15/76 

3965 






MODIFIED TO RUN WITH PXRMTR, DORG PROCESSING 

3966 



:+: 



ADDED 

3967 



:+: 

COMPUTER : 

990, ASSEMBLY 

3960 



* 

ABSTRACT : 


3969 



* 



THIS ROUTINE COORDINATES THE PLACEMENT OF BVTE 

3970 



* 



DATA INTO THE OBJECT CODE. IF THE BVTE OCCURS 

3971 






ON A WORD BOUNDRV, IT IS PLACED INTO THE OBJEC 

3972 






AS A LEFT-JUSTIFIED, ZERO-FILLED WORD. IF THE 

3973 



:+: 



BVTE OCCURS ON A NON-WORD BOUNDRRV IN 

3974 



:+: 



CONSECUTIVE CODE, THE BVTE IS "'OR -"ED INTO THE 

3975 



:+: 



OBJECT WORD PRESENTLY' THERE. IF IN NON- 

3976 






CONSECUT I VE CODE, THE BVTE IS PLACED IN THE 

3977 






OBJECT AS A RIGHT-JUSTIFIED, ZERO-FILLED WORD. 

3978 



* 

CALLING SEQUENCE: 

3979 






BLWP ©OUTBVT 

3980 




ADDITIONAL 

NOTES: 

w 

*•£ 

CO 

P 



:+: 



WORKSPACE = OTBWP < UNSHARED > 

3982! 



:+: 



ROUTINES CALLED: OUTGO J 

3983 



OUTBVT 



3984 

17E8 

17C8 - 



DRTft 

OTBWP WORKSPACE 

3985 

17ER 

17EC-' 



DflTfi 

OTBBG START 

3986 



OTBBG 



3987 

17EC 

C1R0 



MOV 

©DORGFL, SHLD EXIT IF IN DORG 


17EE 

11C8" 





3988 

17F0 

1301 



JEQ 

OUTB 

\,A 

\D 

CO 

CO 

17F2 

8280 



RTWP 


3990 



OUTB 



3991 







3:992! 





CHECK 

FOR CONSECUTIVE CODE AND BOUNDARY LOCATION 

3993 







^ y i^j. 

17F4 

C1R8 



MOV 

QOTWP+NCONS+NCONS, SHLD CONSECUTIVE CODE? 


17FS 

16E6 





3995 

17F8 

1318 



JEQ 

CONPT VES 

3996 

17FA 

D01C 



MOVE 

*L0CP2, INSPT2 NO, GET LAST BVTE OF ADDRESS 

3997 

17FC 

9040 



OB 

INSPT2, ABET DECIDE IF BVTE EVEN/ODD 

3998 

17FE 

1103 



JLT 

DECM DECIMAL VALUE <0-9> 

3999 

1800 

2002 



COO 

AODD, INSPT2 

4000 

1802 

160R 



JNE 

ODD BYTE NOT ON WORD BOUNDARY 

4001 

1.804 

1002 



JMP 

EVN BVTE ON WD BOUNDARY 

4082 



DEOM 



4003 

1806 

2002 



coo 

AODD, INSPT2 

4004 

1808 

1307 



JEQ 

ODD BVTE ODD 

4005 







4006 





OUTPUT WORD BOUNDRRV BVTE 

4007 



•+: 




4008 



E ' 1 

«‘N , 



4099 

180R 

05:13 



MOV 

*SBYT, *FBYT OUTPUT EVEN BVTE 

4 Ei 10 

1.80C 

0405 



MOV 

ZZERO, *SBVT FAKE WORD OBJECT 

401:1 

1.80E 

04:19 



BL..WP 

* 0 T OBPT OUTPUT OBJECT 


,'RASM 


MIR 8990 V2 

1 1 «*’ 

: 44 : 10 197/76 

P8GE 0110 

ITPUT 

OBJECT 

BYTE 


948925 

--9901** 


4012 

1810 

C4D4 


MOV 

+FBVT, *SBYT 

RESTORE 

4013 

1812 

0508 


MOV 

BLNNK, *FBVT 

BL8NK OUT FIRST BYTE 

4814 

1814 

0588 


INC 

BVTFL 

SET BYTE ADDRESS FLAG 

4015 

1816 

0380 


RTWP 


RETURN 

4016 







4017 



:+: 

OUTPUT 

NON-WORD B0UND8RV 6VTE 

4018 







4019 



ODD 




4020 

1818 

0193 


MOV 

*SBYT, SHLD 

SAVE TRUE VALUE 

4021 

1818 

0505 


MOV 

ZZERO, *FBYT 

OUTPUT ZERO WORD 

4022 

181C 

C4C5 


MOV 

Z2ER0.. *SBVT 


4022 

181E 

061B 


DEC 

*L0CP2 

SET EVEN ADDRESS 

4024 

1820 

0419 


BLWP 

+OTOBPT 

OUTPUT OBJECT 

4025 

1822 

059B 


INC 

*L0CP2 

RESTORE ADDRESS 

4026 

1824 

C50R 


MOV 

BLNNK, *FBVT 

RESTORE VALUE 

4027 

lyvfc. 

U4C6 


MOV 

SHLD, =+ : SBVT 

PLACE VALUE IN BYTE 

4028 

1828 

1008 


•JMP 

CNOD 

OUTPUT ODD BYTE 

4029 







4020 




CONSECUTIVE CODE PROCESSING 

4021 



* 


' 


4822 



CONPT 




4022 

1828 

D81C 


MOVE: 

*L0CP2, INSPT2 

TEST FOR WD BOUNDARY 

4824 

182C 

9040 


CB 

INSPT2, 8BET 


4025 

182E 

1102 


•JLT 

DECM2 

DECIMAL VALUE <0-9> 

4826 

1830 

2002 


coc 

RODD, INSPT2 


4027 

1832 

12EB 


JEQ 

EVN 

WD BOUNDARY 

4028 

1834 

1002 


JMP 

CNOD 

ODD BOUNDARY 

4029 



DEI CM 2 




4040 

1836 

2002 


COC 

80DD, INSPT2 


4041 

1838 

16E8 


JNE 

EVN 

WD BOUNDARY 

4042 



CNOD 




4042 

1838 

C1.E0 


MOV 

0OTWP+OBJPT+OBJPT, 

0BJPT2 POINT INTO OBJEC 


183C 

16EE" 





4044 

183E 

0647 


DECT 

0BJPT2 

POINT TO STUFFING RD DRESS 

4845 

1840 

DDF2 


Move 

*SBVT+, ! + ! 0BJPT2+ 

PLACE BVTE INTO WORD 

4046 

.1842 

D5D2 


MOVE: 

*SBVT, : + : 0BJPT2 


4047 

1844 

8682 


DEC £ 

BVT 

RESTORE POINTER TO BYTE 

4048 

1846 

04 C 8 


CLR 

BVTFL 

CLEAR BYTE BOUNDARY FLAG 

4049 

1848 

0280 


RTWP 


RETURN 


PXRASM 

I/O INTlERFfiCE 


M I Rfl.990 V2L1 17 : 44 : 10 
9 4 8 9 2 5-99 0 1 * * 


197/76 
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c 


4052 

4053 

4054 




I/O INTERFACE WORKSPACE AREA 


4855 

4056 

184ft 

0BC0 •' 

LNREQ 

DftTft 

BINVL 

R0 

BINVLP 

4057 

1840 

012ft" 


DftTft 

iobuf 

R1 

F'RBF 

4058 

184E 

01 7C 


DftTft 

INSBUF 

R2 

RDBF 

4859 

1850 

0000 


DftTft 

0 

R3 

PRTF'OS 

4068 

1852 

1 »** DU '* 


DftTft 

BLANK 

RA 

BLF'T 

4061 

1854 

013C-" 


DATA 

RELMRK 

R5 

RMK 

4062 

1856 

0000 

LIST 

DftTft 

0 

R6 

LSTPT 

4063 

1858 

0000 

FSTF'T 

DftTft 

0 

R7 

FST 

4Ub4 

185ft 

0000 


DftTft 

0 

R8 

TEMPRQ 

4865 

4066 

185C 

185E 

0000 

0000 


DftTft 

DftTft 

0 

0 

R9 

R10 

I OF'ftRM 

4067 

I860 

15 AE **' 


DftTft 

PGHDR 

Rll 

PQHC 

4068 

1862 

0000 

RCDCNT 

DftTft 

0 

R12 

RCD1 

4069 

1864 

0000 


DftTft 

0 

Rll 

OLD WP 

4070 

1866 

0000 


DftTft 

0 

R:14 

OLD F'C 

4071 

1868 

0000 


DOT ft 

0 

R15 

'OLD SR 


I/O RTN STATUS 


MIRA990 


PAGE 9112 


I/O INTERFACE 


V2L.1 17:44: 10 

9 4 S' 9 2 5-99 0 1. : + : + 


4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 


* TITLE: PRNTLN/RDRCD 

* I/O INTERFACE 

* REVISION: 03/01/74 

ORIGINAL RELEASE 
:+: 03/15/76 

* MODIFIED TO RUN WITH PXRMTR 

* COMPUTER: 990, ASSEMBLY 

* ABSTRACT: 

* TWO ROUTINES < PRNTLN, RDRCD> ARE USED TO PRINT 

* SOURCE LINES AND READ IN SOURCE RECORDS. PRNTLN 

* ONLY PRINTS THE SOURCE LINE ONCE, EVEN IF IT 

* RESULTS IN SEVERAL LINES OF OBJECT OUTPUT 

* RDRCD BLANKS THE INPUT AND OUTPUT LINES PRIOR 

+ TO EACH SOURCE RECORD READ. PRNTLN COUNTS THE 

* LINES. 

* CALLING SEQUENCE: 

* BLWP 0PRNTLN OR BL.WP ORDRCD 
+ ADDITIONAL NOTES: 

* WORKSPACE = LNREG < UNSHARED > 


4093 





ROUTINES CALLED 

: PGHDR, BINDEC, PRINTP, READ, 

4894 





ENDFIL 


4095 



PRNTLN 




4096 

186 A 

184ft ' 


DATA 

LNREG, PRT 

WORKSPACE, START 


I860 

186E •" 





4097 



F'RT 




4098 

186E 

0186 


MOV 

LSTPT, LSTPT 

IS LIST FLAG SET? 


1870 

133D 


JEQ 

OVR 

NO, SKIP 

4100 

1872 

0620 


DEC 

0LNONT 

YES, DECR LINE COUNT 


1874 

1590 •- 





4101 

1876 

1.501 


JGT 

BGPRT 

LESS THAN 55 LINES, CONTINU! 

4102 

1878 

041B 


BLWP 

: + : PGHC 

MORE THAN 55, PRINT PAGE HDF 

4103 



BGPRT 




4104 

187 A 

C1C7 


MOV 

FST, FST 

FIRST TIME FOR LINE? 

41.05 

187C 

133B 


JEQ 

I NPT 

NO, SKIP 

4106 

:187E 

C40C 


MOV 

RCD1, I NVL.P 

VES, CONVERT RECORD NUMBER 

4107 

1880 

0420 


BLWP 

0BINDEC 

TO DECIMAL AND PLACE 


1882 

0BF4 •* 





4108 

1884 

0120 •- 


DATA 

RCDNUM 

IN INSTRUCTION BUFFER 

4109 



* 




4110 



* TRANSFER 

CHARS FROM READ 

' BUFF TO PRINT BUFF 

4111 



* El 

BRANDING TABS AND INS 

iERTING LF 

4112 







4113 

1886 

0403 


CLR 

PRTPOS 

IN IT PRINT POSITION 

4114 

1888 

840 ft 


OL.R 

R10 

INIT BUFF PTR 

4115 

188R 

0408 


CLR 

TEMPRG 

I NIT LAST NON-BLANK A DDR 

4116 



PRBLD 




4117 

1880 

D272 


MOVB 

+RDBF+, R9 

GET CHAR FROM READ BUFFER 

4118 

188E 

9809 


CB 

R9.* 0TAB 

IS IT A TAB? 


1898 

0004 *" 





4119 

1892 

130E 

, 

JEQ 

PR TAB 

VES 

4120 

1894 

9889 


OB 

R9.« QO R 

IS IT A CR? 


1896 

0181 ■' 





4121 

1898 

131D 


■JEQ 

PRCR 

VES 


F'XRASM 

I/O INTERFACE 


MIRA990 


4122 

189 A 

DA 89 


MOVB 


189C 

013E-’ 



4123 

189E 

058A 


INC 

4124 

18A0 

9509 


CB 

4125 

18A2 

1304 


JEQ 

4126 

18A4 

C20A 


MOV 

4127 

18A6 

028A 


Cl 


18A8 

003B 



4128 

18 A A 

1514 


•JGT 

4129 



PRBL2 


4120 

18 AC 

0583 


INC 

4131 

18AE 

10EE 


JMP 

4122 





4122 



+ EXPAND Tf 

4134 





4125 



PRTAB 


41.36 

18B0 

04C9 


CLR 

4137 



PRTB1 


4128 

18B2 

8A43 


C 


18B4 

1598 •" 



4139 

18B6 

1104 


•JLT 

4140 

18B8 

05C9 


INCT 

4141 

18BA 

0289 


CT 


18BC 

0008 



4142 

18BE 

16F9 


JNE 

4143 



PRTSP 


4144 

18C0 

DA94 


MOVB 


18C2 

013E 



4145 

18C4 

05 8 A 


INC 

4146 

18C6 

0583 


INC 

4147 

18C8 

8A43 


C 


18CA 

1598 



4148 

18CC 

11F9 


JLT 

4149 

18CE 

028 A 


Cl 


18D0 

003C 



4150 

18D2 

11DC 


JLT 

4151 





4152 



PRCR 


4153 

18D4 

DA20 


MOVB 


18D6 

0100 




18D8 

013E 



4154 

18DA 

DA20 


MOVB 


18DC 

0101 •" 




18DE 

013F •' 



4155 



OGO 


4.156 

18E0 

0202 


LI 


18E2 

017C -■ 



4157 

18E4 

04C7 


CLR 

4158 

18E6 

C281 


MOV 

4159 

18E8 

0420 


BL.WP 

,.j -1 wT i~i 

18EA 

19D2 

n c« 


’*i* X O 

416:1 

18 EC 

D554 

U v K 

MOVB 

4:162 

18EE 

D814 


MOVB 


18F0 

0136 •" 




V2L1 17:44: 10 197/76 

948925-9901+*: 

MOVB R9, 0PRBUF < R10 > 


Rl© 

R9, +BLPT 


R10, 59 


PRBLD 
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HO, STORE CHAR IN PRINT BUFF 

I NCR BUFF PTR 
IS IT fl BLANK? 

YES, SKIP 

SfWE LAST NON-BLANK ADDR 
MORE THAN 59 CHARS? 

YES, THEN EXIT 

I NCR PRINT POSITION 
CONTINUE 


R9 INSERT SPACES TO NEXT TAB 

PRTPOS, @TABS<R9> FIND TAB GREATER THAN 


R9, g 


CURRENT PRINT POSITION 
I NCR TAB BUFF INDEX 
UP TO 4 TABS ALLOWED 


PRTPOS, 0TABS < R9 > 


R10, 60 


UP TO NEXT TAB STOP 
I NCR PRINT POSITION 
PRINT POSITION = TAB STOP 

ELSE INSERT ANOTHER SPACE 
LESS THAN 60 CHARS? 

YES, THEN CONTINUE 


TERM WITH LF/CR 


MOVB OCR, 0PRBUF+1 < TEMF'RG > 


RDB'F, INSBUF 
FST 

PRBF, IOPARM 


REIN IT READ BUFFER ADDR 

CLEAR FIRST TIME FLAG 
POINT TO PRINT BUFFER 
PRINT LINE 


BLANK RELOCATAB I L I TV MARK 
BLANK POSSIBLE 


IRASM 


M I RA990 

V2L1 17 

: 44 : 18 197/76 

PAGE 0114 

*0 INTERFACE 



948925 

~9901 : ** : 


4163 

18F2 

8388 


RTWP 


RETURN 

4164 







4165 




SECOND AND SUBSEQUENT CALLS FOR PRINT 

4166 







4167 



I NPT 



4168 

18F4 

D820 


MOVB 

C-LF, 0RELMRK+1 

PLACE LF IN LINE 


18F6 

0100- 






18F8 

013'D " 





4169 

18FR 

D820 


MOVB 

OCR, ORELMRK+2 

PLACE CR IN LINE 


18FC 

0101" 






18FE 

013E " 





4170 

1900 

0814 


MOV 

*BLF'T, ORCDNUM 

BLANK OUT RECORD NUMBER 


1902 

0120 •" 





4171 

1904 

0814 


MOV 

*E'LPT, C-RCDNLIM+2 



1906 

012E-" 





4172 

1908 

10EB 


JMP 

OQO 


4173 







4174 




READ RECORD 


4175 



* 



- 

4176 



RDRCD 



4177 

190 A 

184 A" 


DATA 

LNREG, RD 

WORKSPACE. RD 


190C 

190E " 





4178 



RD 




4179 

190E 

C282 


MOV 

RDBF, IOPARM 

POINT TO READ BUFFER 

4188 

1910 

0201 


MOV 

PRBF, TEMPRG 

POINT TO TOTAL BUFFER 

4181 



RD 




4182 

1912 

CE14 


MOV 

: + : BLPT.» h<TEMPRG+ 

CLEAR OUT BUFFER 

4183 

1914 

0288 


Cl 

TEMPRG, IOBUF+144 



1916 

01 BA" 





4184 

1918 

11FC 


JLT 

RD2 


4185 







4186 




READ RECORD 


4187 







4188 

191A 

0420 


BLWP 

9RERD 

READ IN RECORD 


191C 

1980- 





4189 

191E 

0249 


AND I 

R9, EOF+IOERR 

EOF OR I/O ERROR ENCOUNTERED 


1920 

6000 





4198 

1922 

1.605 


JNE 

WREOF 

VES, GO WRITE EOF 

4191 

1924 

DE94 


MOVB 

*BLPT, *I0PRRM4- 

TERMINATE RECORD WITH 

4192 

1926 

D6A0 


MOVB 

OCR, * IOPARM 

BLANK/CR 


1928 

0101- 





4193 

:192A 

0580 


INC 

RCD1 

INCREMENT RECORD COUNT 

4194 

192C 

0380 


RTWP 


RETURN 

4195 







4196 




WRITE END OF FILE 


4197 







4198 



MREOF 



4199 

192E 

02E0 


LWPI 

IOWKS 

USE I/O ROUTINE WORKSPACE 


1930 

1944" 





4288 

1932 

0402 


CLR 

I OC 

I NIT CODE FOR I/O SUPV CALL- 

4201 

1934 

C8E0 


. MOV 

0C2LUNO, IOPLUN 

STORE LUNO 


1936 

0062 -' 





4202 

1938 

D0E0 


MOVB 

OEOFCOD, IOPLUN 

STORE I/O OP 


193 A 

0067 •" 





4203 

193C 

0404 


CLR 

FLGS 

INIT FLAGS 


PXRASM 

s 


MIRA990 

V2L.1 17 : 44 : 10 

197/76 

I/O INTERFACE 


948925-9901** 


4204 

193E 

2FC2 

SVC IOC 


4205 

1 

1940 

1942 

0 4 6 0 
0450' 

B ©PXRASM 
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MAKE SUPV CALL 
VES, RESTART 


PXRASM MIRA990 

I/O RtiLU I ME S' 


V2L1 1 ? ; 44 ; 10 
948925-9901+:+: 


197/76 


PAGE 0116 


4208 



4209 



4210 



4211 



4212 

1944 

0900 

4213 

1946 

0B00 

4214 

1948 


4215 

1958 

003C 

4216 

195A 



* 

* WORKSPACE AREA FOR INPUT/OUTPUT ROUTINES 


IOWKS 

DATA RDCOD 
DATA WRCOD 
SC 6 LK BSS 16 
DATA 60 
BSS 10 


R0 RDCODP 
R1 WRCODP 

R2-R9 I/O SUPV CALL BLK CPRB) 

R10 LEN 

R11-R15 


M I RA990 


PAGE 0117 


PXRRSM 

I/O ROUTINES 


V2L1 17 : 44 : 10 1 97/76 

948925-9901** 


4218 




TITLE: 

OPEN 


4219 





ASSIGN A DEVICE 

TO A TASK 

4220 



H-: 

REVISION 

03/15/76 


4221 





ORIGINAL 


4222 



H*: 

COMPUTER : 

990, ASSEMBLV 


4223 



* 

ABSTRACT : 



4224 





SETS UP PRB AND 

MAKES SUPERVISOR CALL TO OPEN 

4225 



* 


A DEVICE 


4226 




CALLING SEQUENCE: 


4227 





R10=LUNO 


4228 



* 


BLWP ©OPEN 


4229 



* 

ADDITIONAL NOTES: 


4220 





WORKSPACE = I OWK 

S < SHARED WITH I/O ROUTINES::- 

4221 



OPEN 



4232 

1984 

1944" 


DATA 

IOWKS, $+2 

TRANSFER VECTOR 


1986 

1968 '■ 





4233 

1968 

04 C 2 


CLR 

IOPLUN 


4234 

196R 

D0E0 


MOVE: 

0OPNCOD, IOPLUN 

STORE I/O OP 


I960 

0066'' 





4235 

196E 

04 C 4 


CLR 

FLGS 

I NIT FLAGS 

4236 

1970 

0402 


CLR 

I OC 

I NIT CODE FOR I/O SUPV CALL 

4237 

1972 

C20D 


MOV 

R12, R12 

GET CALLER -S WORKSPACE PTR 

4238 

1974 

0220 


AI 

R12, R10+R10 

INDEX TO CALL PARAMETER 


1976 

0014 





4239 

1978 

0210 


MOV 

*R12, R12 

GET LUNO 

4240 

197A 

E0CC 


soc 

R12, IOPLUN 

OR LUNO INTO IOPLUN 

4241 

197C 

2FC2 


SVC 

IOC 

MAKE SUPV CALL 

4242 

197E 

0280 


RTWP 


RETURN 


MIRA990 


± 97/76 
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PXRASM 
I/O ROUTINES 


V2L1 17 : 44 : 10 
948925-9901** 



4244 



:+: 

TITLE: 

READ 

4245 



:+: 


READ A RECORD 

4246 



:+: 

REVISION: 

03/15776 

4247 



:+: 


ORIGINAL 

4248 




COMPUTER : 

990, BSSEMBLV 

4249 



* 

ABSTRACT : 


4250 



* 


SETS UP PRB AND MAKES SUPERVISOR CALL TO READ 

4251 





A RECORD 

4252 



* 

CALLING SEQUENCE: 

4252 



jf: 


R10=BUFFER ADDRESS 

4254 



H*: 


BLWP ©READ 

4255 





R10=BUFFER ADDRESS+CHAR COUNT 

4256 





R9=FLAGS 

4257 



>H 

ADDITIONAL NOTES: 

4258 





WORKSPACE = IOWKS < SHARED WITH I/O ROUTINES) 

4259 





RETURN PARAMETERS: 

4260 





R10 = BUFFER ADDR+CHAR COUNT 

4261 





R9 = FLAGS 

42< =.2 



READ 


426 s 

1980 

1944 •- 


DATA 

IOWKS, *+2 TRANSFER VECTOR 


1982 

1984 * 




4264 

1984 

C0E6 


MOV 

eClLUNG, IOPLLIN STORE LUNO 


1986 

0068 




4265 

1988 

1004 


•JMP 

KEVRD 

4266 






4267 




TITLE: 

KEVIN 

4268 



* 


KEVBOARD INPUT ROUTINE 

4269 



* 

REVISION: 

03/15/76 

4278 





ORIGINAL 

4271 




COMPUTER : 

990, ASSEMBLV 

4272 



•+: 

ABSTRACT : 


4 2 1** £ 



:+: 


SETS UP PRB AND MAKES SUUPER VISOR CALL TO INPUT 

4274 



:+: 


ft RECORD FROM KEVBOARD 

4275 



* 

CALLING S 

EQUENCE: 

4276 





R10=BUFFER ADDRESS 

4277 



:+: 


BLWP ©KEVIN 

4278 



:+: 

ADDITIONAL NOTES: 

4279 





WORKSPACE - IOWKS < SHARED WITH I/O ROUTINES) 

4280 



:+: 


RETURN PARAMETERS : 

4281 



:+: 


R10 = BUFFER ADDRESS+CHAR COUNT 

4282 



* 


R9 — FLAGS 

4283 



KEVIN 


4 2 4 

198ft 

1944“ 


DATA 

IOWKS, *+2 TRANSFER VECTOR 


1980 

198E 




4285 

:198E 

C0E0 


MOV 

0KBLUNO, IOPLUN STORE LUNO 


1990 

005C -■ 




4286 



KE 

IVRD 


4287 

1992 

D0C0 


MOVB 

RDCODP, IOPLUN STORE I/O OP 

CO 

CO 

1994 

020 D 


MOV 

R13, R12 GET CALLER ' S WORKSPACE PTR 

4289 

1996 

022C 


AI 

R12, R10+R10 INDEX TO CALLING PARAMETERS 


1998 

0014 




4290 

199ft 

CISC 


MOV 

*R12, BUFADR SET UP BUFFER ADDRESS 

4291 

1990 

C18fl 


MOV 

LEN, BIJFLEN SET UP BUFFER LENGTH 

4292 

199E 

04 C 4 


CLR 

FLGS INIT FLAGS 


PXROSM 
I/O ROUTINES 

4293 1900 

4294 191=12 

4295 1904 

4296 1906 

4297 19flS 

1900 

4298 1900 
190E 

4299 19B0 

4300 19B2 

4301 19B4 

4302 19B6 

4303 

4304 19B8 

4305 19B0 
19BC 

4306 19BE 

4307 1900 
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POQE 0119 

0407 

CLR CHRCNT 

I NIT CHOR CNT TO ZERO 

0402 

CLR IOC 

INIT CODE FOR I/O SUPV CODE 

2FC2 

SVC IOC 

MOKE SUPV COLL 

0707 

0 . CHRCNT, *R12 

I NCR BUFF PTR TO END OF DflTR 

0243 
00FF 
8803 
0050 •' 

AND I IOPLUN, >00FF 
0 IOPLUN, 0KBLUNO 

IS THIS KEVBQBRD READ? 

1303 

JEQ KEVPLF 

IF VES, GO PRINT LF 

0640 

DECT R12 

MOVE FLOGS TO COLLING R9 

0704 

MOV FLOS, *R12 

TO RETURN READ STATUS 

0380 

RTWP 

KEVPLF 

ELSE, RETURN 

D0C1 

MOVB WRCODP, IOPLUN 

SET UP PRB TO PRINT LF 

0205 

0100- 

LI BUFRDR, LFCR 

SET UP BUFFER ADDR 

0704 

SETO FLOS 

SET FLOG TO PRINT WITHOUT OR 

1010 

JMP PRTKEV 

JUMP TO ENTRV POINT IN PRINT 


'XRASM 
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.-■'0 ROUTINES 


948925 

-9901** 

4309 



* TITLE: 

WRITE 

4310 




WRITE R RECORD 

4311 



* REVISION: 

03/15/76 

4312 



jf: 

ORIGINAL 

4313 



* COMPUTER: 

990, ASSEMBLY 

4314 



* OBSTRUCT: 


4315 




SETS UP PRB AND MAKES SUPERVISOR CALL TO WRITE 

4316 



* 

R RECORD 

4317 



* CRLLING SEQUENCE: 

431W 



* 

R10=BUFFER ADDRESS 

4319 



* 

BLWP ©WRITE 

4320 



* RDDITIQNRL NOTES: 

4321 



* 

WORKSPACE = IOWKS < SHARED WITH I/O ROUTINES* 

4322 



WRITE 


4 SdS 

1902 

1944" 

DATA 

IOWKS, *+2 TRANSFER VECTOR 


1904 

1906-' 



43:24 

1906 

C0E0 

MOV 

0C2LUNO, IOPLUN STORE LUNO 


1908 

0062 - '' 



43:25 

19CR 

0704 

SETO 

FLGS SET FLAG FOR WRITE WITHOUT Ci 

43:26 

•A “7 

1900 

100F 

JMP 

PRWRT 

T-jc. 1 

43:28 



* TITLE: 

PR I NT/PR I NTN/PR I NTP 

43:29 




PRINT R RECORD 

43:3:0 



REVISION: 

03/15/76 

43:3:1 




ORIGINAL 

43:3:2 



* COMPUTER: 

990, ASSEMBLY 

4.5 SS 



* ABSTRACT : 

SETS UP PRB AND MAKES SUPV CALL 

43:3:4 




TO PRINT R RECORD 

4335 




THREE ENTRY POINTS: 

433:6 



:+: 

PRINT - PRINTS RECORD WITH OR TO LUNO 0 

43:37 



:+: 

PRINTN - PRINTS RECORD WITHOUT OR TO LUNO 0 

433:8 



:+: 

PRINTP - PRINTS RECORD WITH CR TO LUNO 6 

433*9 



* CRLLING SEQUENCE: 

43:40 




R10 = BUFFER ADDRESS 

43:41 



+ 

BLWP ©PRINT 

43:42 




BLWP ©PRINTN 

43:43* 



* 

BLWP ©PRINTP 

43:44 



* STATISTICS 

!: WORKSPACE = IOWKS < SHARED WITH I/O ROUTINES* 

43:45 





4346 

19CE 

1944" 

PRINT DRTR 

IOWKS, PRTCR 


19D0 

19DA ' 



43:47 

19D2 

1944 - 

PRINTP DRTR 

IOWKS, F'RTPCR 


19D4 

19DE 



43:48 

19D6 

1944" 

PRINTN DRTR 

IOWKS, F'RTNCR 


19D8 

19E6-' 



4 .5 4 y 



PRIOR 


43*50 

19DR 

0404 

CLR 

FLGS SET FLAG FOR PRINT WITH CR 

43*51 

19DC 

1.005 

JMP 

PRENT 

43:52 



F'RTPCR 


43:53: 

19DE 

0404 

CLR 

FLGS SET FLAG FOR PRINT WITH CR 

43:54 

19E0 

C0E0 

MOV 

©F'RLUNO, IOPLUN SET LUNO 6 FOR PRINT 


19E2 

005E •" 



43:55 

19E4 

1003 

JMP 

PRWRT 

43:56 



F'RTNCR 
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948925-9901®* 6 * 

4357 
4 7 Ft P, 

19E6 

0704 

PRENT 

SETO 

FLGS 

4359 

19E8 

C0E0 


MOV 

0KBLUNO, IOPLUN 


19EA 

005C •" 




4360 

4361 

19EC 

D8C1 

PRWRT 

MOVB 

WRCODP, IOPLUN 

4362 

19EE 

C30D 


MOV 

R13, R12 

4363* 

19F0 

022C 


AI 

R12, R10+R10 


19F2 

0014 




4364 

4365 

19F4 

CISC 

PRTKEV 

MOV 

*R12, BUFADR 

4366 

19F6 

86A0 


BL 

0GETCNT 


19F8 

1A1 A " 




4367 

19FA 

A1C4 


A 

FLGS, CHRCNT 

4368 

19FC 

04C4 


CLR 

FLGS 

4369 

19FE 

04C2 


CLR 

IOC 

4370 

1A00 

2FC2 


SVC 

IOC 

4371 

1A02 

0244 


AND I 

FLGS, IOERR 


1A04 

4000 




4372 

1A06 

02CF 


STST 

R15 

4373 

1A08 

1307 


JEQ 

PREXT 

4374 

1A0A 

0243 


AND I 

IOPLUN, >00FF 


1A0C 

00FF 




4375 

1A0E 

8803 


c 

IOPLUN, 0PRLUNO 


1A1© 

005E •- 




4378 

1A12 

1802 


JNE 

PREXT 

4377 

1A14 

0460 


B 

0PXRASM 


1A16 

0450 





SET FLAG FOR PRINT WITHOUT CR 
SET LUNO 0 FOR PRINT 


STORE I/O OP 

GET CALLER'S WP 

INDEX TO CALLING PARAMETERS 

SET UP BUFFER ADDR 

GET CHAR COUNT 

ADJUST CHRCNT FOR CR 
I NIT FLAGS 

INIT CODE FOR I/O SUPV CALL 
MAKE SUPV CALL 
CHECK RETURN STATUS 

STORE FLAGS IN USER STATUS RE 
ZERO, EXIT 


PRINTER ERR CESC CNTL RTN > 
NO 

VES, RESTART ASSEMBLV 


4378 

4379 


1A18 0380 


PREXT 


RTWP 


RETURN 
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4381 



* TITLE: 

GETCNT 


4382 



:+r 

GET CHARACTER 

COUNT 

•4383 



* REVISION 

03/15/76 


4384 




ORIGINAL 


4385 



* COMPUTER 

990, ASSEMBLY 


4386 



* ABSTRACT 



4387 



:+: 

SCANS LINE COUNTING CHARACTERS UP TO AND 

4388 



:+: 

INCLUDING CR. 

RETURNS COUNT IN CHRCNT <R7> 

4389 



: +: CALLING 

SEQUENCE : 


4390 




R10=BUFFER ADDRESS 

4391 




BL ©GETCNT 


4392 



* ADDITIONAL NOTES: 


4393 



* 

RETURN PARAMETERS : 

4394 



* 

CHRCNT <R7> 

■ CHARACTER COUNT 

4395 



GETCNT 



4396 

lflifl 

0407 

CLR 

CHRCNT 

INIT CHAR COUNT 

4397 



GCLOOP 



4398 

IfllC 

0587 

INC 

CHRCNT 

I NCR CHAR COUNT 

4399 

1A1E 

9835 

OB 

*BIJFADR+, @CR 

COMPARE CHAR TO CR 


1820 

0101 •" 




4400 

1822 

1303 

JEQ 

GCEXT 

IF EQUAL, EXIT 

4401 

1824 

0287 

01 

CHRCNT, 82 

MORE THAN 80 CHARS + LF/C 


1826 

0052 




4402 

1828 

11F9 

JLT 

GCLOOP 

NO, CONTINUE 

4403 



GCEXT 



4404 

1828 

6147 


CHRCNT, BUFADR 

RESET BUFFER ADDR TO START 

4405 

1820 

045B 

B 

+ : RTN 

RETURN 
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4407 







4408 



* JUMP TABLES USING CHARACTER CLASS 

4489 



* 




4410 



JMPTB1 




4411 

1A2E 

00 

BYTE 

ALPHA- JMP1/2-1 

ALPHA 


4412 

1R2F 

22 

BYTE 

NUM-JMP1/2— 1 

NUM 


4413 

1A30 

6F 

BYTE 

DOLLAR- JMP1/2-1 

$ 


4414 

1R31 

5C 

BYTE 

QUOTE- JMP1/2-1 

QUOTE 


4415 

1R32 

34 

BYTE 

HEX-JMP1/2— 1 

> 


4416 



JMPTB2 




4417 

1R33 

00 

BYTE 

RL-JMP2/2-1 



4418 

1R34 

05 

BYTE 

NU-JMP2/2-1 



4419 

1R35 

EC 

BYTE 

NUM0-JMP2/2-1 



4420 

1A36 

EC 

BYTE 

NUM0-JMP2/2-1 



4421 

1R37 

EC 

BYTE 

NUM0-JMP2/2-1 



4422 



JMPTB3 




4423 

1R38 

00 

BYTE 

CKER-JMF'3/2-1 

0 


4 4 4 

1R39 

18 

BYTE 

0PSTK1-JMP3/2-1 

1 


4425 

1R3R 

IB 

BYTE 

QPSTK2-JMP3/2-1 



4426 

1R3B 

IF 

BYTE 

0PSTK3-JMP3/2— 1 

3 


4427 

1R3C 

IF 

BYTE 

0PSTK3-JMP3/2— 1 

4 


4428 

1R3D 

3B 

BYTE 

SCAL-JMP3/2-1 

5 


4429 

1R3E 

3B 

BYTE 

SCAL-JMP3/2-1 

6 


4430 

1R3F 

3B 

BYTE 

SCAL-JMP3/2-1 

8 


4431 

1R40 

-~«“7 

i 

BYTE 

SCQT-JMP3/2-1 

»■* 


4432 

1R41 

3B 

BYTE 

SCAL-JMP3/2-1 

9 


4 4* 3 s 







4434 



* JUMP TABLES USING SYMBOL 

TYPE 


4435 



* 




4436 



JMPTB6 




4437 

1R42 

00 

BYTE 

RDF-JMP6/2-1 

0 


4438 

1R43 

00 

BYTE 

RDF-JMP6/2-1 

1 


4439 

1A44 

01 

BYTE 

ADF-JMP6/2-1 

Ch 


4448 

1R45 

01 

BYTE 

A D F — J M PS/2- 1 



4441 

1A46 

00 

BYTE 

RDF - JMP6/2-1 

4 


4442 

1R47 

00 

BYTE 

RDF-JMP6/2-1 

5 


4443 

1A48 

01 

BYTE 

ADF-JMP6/2-1 

6 


4444 

1R49 

01 

BYTE 

8DF-JMPS/2-1 

7 


4445 

1R4R 

18 

BYTE 

ERRS- J M P 6 / 2 - 1 

8 


4446 

1R4B 

06 

BYTE 

ED-JMP6/2-1 

9 


4447 

1R4C 

06 

BYTE 

ED-JMP6/2-1 

10 


4448 

1R4D 

0E 

BYTE 

FR-JMP6/2— 1 

11 


4449 

1A4E 

24 

BYTE 

ER-JMPS/2-1 

12 


4450 

1R4F 

24 

BYTE 

ER-JMP6/2-1 

13 


4451 



FTAB 




4452 

1R50 

00 

BYTE 

EXTDFR-JMPF/2-1 

FLRGS 

- 0 

4453 

1R51 

2B 

BYTE 

NXSYM-JMPF/2-1 

FL.RGS 

- 1 

4454 

1A52 

03 

BYTE 

EXTDF A- JMPF/2-1 

FLRGS 

= 2 

4455 

1R53 

2B 

BYTE 

NXSVM-JMPF/2— 1 

FLRGS 

SS 3 

4456 

1R54 

00 

BYTE 

EXTDFR- JMPF/2-1 

FLRGS 

r= 4 

4457 

:1R55 

c- B 

BYTE 

NXSYM- JMPF/2-1 

FLRGS 

* 5 

4458 

1A56 

03 

BYTE 

EXTDFA- JMPF/2-1 

FLRGS 

- 6 

4 4 f**i *4 

1R57 

2B 

BYTE 

NXSYM- JMPF/2-1 

FLRGS 

— y 

4468 

1858 

2B 

BYTE 

NXSYM- JMPF/2-1 

FLRGS 

p t 


ROSM 
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4461 

11=159 

3E 

BYTE 

UNDSM- JMPF/2-1 

FLOGS = 9 

4462! 

11=150 

3E 

BYTE 

UNDSM- JMPF/2-1 

FLOGS = 10 

4463 

105B 

3E 

BYTE 

UNDSM-JMPF/2-1 

FLOGS = 11 

4464 

105C 

3B 

BYTE 

EXTRFfl- JMPF/2-1 

FLOGS » 12 

4465 

105D 

38 

BYTE 

EXTRFR- JMPF/2-1 

FLOGS = 13 

446*6* 



+■ 



4467 



* JUMP ' 

FABLE USING INSTRUCTION 

4468 



* WORD LENGTH OND RELOCOTOBILITY 

446*9 



■¥ 



4478 



INTEL 



4471 

105E 

02 

BYTE 

IN8-JMP IN/2-1 

NO EXTRO WDS 

4472 

105F 

01 

BYTE 

IN1-JMP IN/2-1 

1 EX WD -DEF-D OBS 

4473 

1060 

04 

BYTE 

IN2-JMP IN/2-1 

1 EX WD -DEF'D REL 

4474 

1061 

87 

BYTE 

IN3-JMP IN/2-1 

1 EX WD -FRF 

4475 

1062 

00 

BYTE 

IN4-JMP IN/2-1 

CDEF OBS, DEF OBS> 

4476 

1063 

03 

BYTE 

IN5-JMP IN/2-1 

<DEF OBS, DEF REL > 

4477 

1064 

06 

BYTE 

IN6-JMP IN/2-1 

< DEF OBS, FRF > 

4478 

1065 

09 

BYTE 

1N7-JMP IN/2-1 

< DEF REL, DEF RBS> 

4479 

1066 

0B 

BYTE 

IN8-JMP IN/2-1 

C DEF REL, DEF REL > 

4480 

1067 

8D 

BYTE 

IN9-JMP IN/2-1 

< DEF REL, FRF > 

4481 

1068 

0F 

BYTE 

IN10-JMP IN/2-1 

<FRF , DEF OBS> 

4482 

1069 

11 

BYTE 

I Nil- JMP IN/2-1 

<FRF , DEF REL > 

4483 

1060 

13 

BYTE 

IN12-JMP IN/2-1 

<FRF, FRF > 

4484 

106B 

dL i 

QT BYTE 





C 




W IV) H- 
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197 


ilTIAL'lZATION 


*34.qqr2 

5-9981** 

4488 

* TITLE: 

FRT/SYMT / I N I T 

4489 



FORWARD REFERENCE TABLE/SVMBOL TABLE/HEADING 

4490 

* REV I 

SION: 

03/01/74 

4491 

* 


ORIGINAL 

4492 

* 


03/15/76 

4493 



HEADING AND MEM SIZE IN IT MOVED & MODIFIED 

4494 

:+c 


TO RUN WITH PXRMTR, PREDEFINED REG OPTION ADDED 

4495 

* 


12/07/76 

4496 

* 


MEM SIZE REMOVED. 

4497 

* COMPUTER: 

990 , ASSEMBLY 

4498 

* ABSTRACT: 

THE AREA FROM END OF PXRASM TO END OF 

4499 

* 


MEMORY RESERVED FOR FORWARD REFERENCE 

4580 



TABLE AND SYMBOL TABLE. FRT STARTS AT 

4581 

:+: 


BOTTOM OF BUFFER AND IS BUILT UP, SYMT 

4582 



STARTS AT TOP OF SAME BUFFER AND IS 

4583 



BUILT DOWN. 

4584 

'+•’ 


IN IT CONTAINS CODE FOR INITIALIZATION 

4585 

4586 



DONE FIRST TIME PXRASM EXECUTED ONLY. 

4587 


FORWARD REFERENCE TABLE ' 

4588 

:+: 

AND S 

YMBOL TABLE 

4589 

4518 08R0 

FRT 

EQU 

>A0 

4511 

4512 

4513 


REF 

SYMT 

* 

INI! 

RORG 

FRT 

4514 

4515 

4516 

:+: 

INITIALIZE MOP VECTOR 


4517 



REF 

SVCWP 


4518 



REF 

SVC SR 


4519 

1ASC 

8289 

LI 

R9, SVCWP 



1A6E 

8880 




4528 

1A70 

0889 

MOV 

R9, ©>7C 



1A72 

0870 




4521 

1A74 

0209 

LI 

R9, SVCSR 



1R76 

8808 




4522 

1R78 

0809 

MOV 

R9, ©>7E 



1A7A 

007E 




4523 


:+: 




4524 



PRINT OUT HERDING 


4525 

1A7C 

02R8 

MOV 

©KBLUNO, IOPARM 

OPEN LOG KEYBOARD 


1A7E 

8850 *" 




4526 

1A80 

8428 

BLWP 

©OPEN 



1A82 

1964'" 




4527 

1A84 

02R8 

MOV 

©PRLUNO, IOPARM 

OPEN LOG PRINTER 


1A86 

805E 




4528 

1A88 

8428 

BLWP 

©OPEN 



1A8A 

1964 *’* 




4529 

1.A8C 

028R 

LI 

IOPARM, LFCR 

PRINT LINE FEED/CARRIAGE 


1A8E 

0180 




4530 

1A90 

0428 

BLWP 

©PRINT 



1A92 

190E *’* 




453:1 

1A94 

028 R 

LI 

IOPARM, NAMMSG 

PRINT PROGRAM TITLE 


:rrsm 
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ZATION 


948925 

I-9901** 



1A96 

1AE6-' 





4532 

1A98 

0420 


BLWP 

©PRINT 



1A9A 

19CE” 





4533 



* 




453:4 




PREDEFINED REGISTER OPTION 

453:5 



REQPR 




4536 

1R9C 

020R 


LI 

IOPflRM, PDRMSG 

REQUEST IF PREDEFINED 


1R9E 

1B02 





453:7 

1RR0 

0420 


BLWP 

©PRINTN 

REGISTERS DESIRED? 


1AA2 

19D6-' 





4538 

1RR4 

020R 


LI 

IOPflRM, INSBUF 

INPUT RESPONSE 


1RR6 

01 7C" 





453:9 

1RR8 

0420 


BLWP 

©KEVIN 



lflflfl 

198R-' 





4540 

1RRC 

C820 


MOV 

©SVMTRB, ©SVMTBE 

INIT TOP OF SYMBOL TABLE 


1RRE 

1154 






1RB0 

0006 •" 





4541 

1RB2 

9820 


CB 

©INSBUF, ©NO 

NO PREDEFINED REGISTERS? 


1RB4 

017C-' 






1AB6 

1B19-' 



- 


4542 

:1RB8 

1315 


•JEQ 

EXTMS 

THEN EXIT 

4543: 

1RBR 

9820 


CB 

©INSBUF, ©YES 

YES? 


1RBC 

017C *** 






1RBE 

1B1FK 





4544 

1RC0 

13:83: 


JEQ 

SETPR 


4545 

1RC2 

028R 


Cl 

IOPflRM, INSBUF 

ASSUME DEFAULTS IF NO INPUT 


1RC4 

017C-* 





4546 

1RC6 

16ER 


JNE 

REQPR 

NO, ASK AGA I N 

4547 



SE T PR 




4548 

1RC8 

0299 


LI 

R9, PDREGE-PDREG 

RESET NEXT SYMBOL TABLE ENTR' 


1RCR 

0060 





4549 

1RCC 

6809 


c* 

R9, ©SVMTBE 

PAST PREDEFINED REGISTERS 


1RCE 

0006 •" 





4550 

1R.D0 

0209 


LI 

R9, PDREG 

MOVE PREDEFINED REGISTERS TO 


1AD2 

1B1C 





4551 

1RD4 

020R 


LI 

R10, SVMT 

BOTTOM OF SYMBOL TABLE 


1RD6 

1154" 





4552 

1RD8 

022ft 


fil 

R10, PDREG-PDREGE+i TOP OF SYMBOL TABLE 


1RDR 

FFftl 





4553: 



MOV PR 




4554 

1ADC 

DEB 9 


MOVB 

*R9+, *R10+ 

MOVE BYTES 

4555 

1RDE 

0289 


Cl 

R9, PDREGE 

ALL DEFINITIONS MOVED? 


1RE0 

IB 70 





4556 

1RE2 

16FC 


JNE 

MOV PR 

NO, CONTINUE 

4557 



EXTflS 




4558 

1AE4 

045B 


RT 


START ASSEMBLY 

4559 



: +: 




4560 



s+c 

MESSRGES & DRTR 


4561 







4562 
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8:177 




MONITOR COMMAND OVERLAY SECTION 

01 r“ y 







017*3 

0000 

4C 

BEGLRL 

TEXT 

-'LL* 



0001 

4C 





0180 

0002 

00BE " 


DATA 

LALCSR 


0181 

0004 

8008 


DATA 

0 


0182 







8183 




DATA 



0184 







0185 

0006 

8R0D 

L.FCR 

DATA 

>8 ROD 

LINE FEED/CARRIAGE RETURN 

0186 


0886 

LF 

EQU 

LFCR 


0187 


0007 x 

CR 

EQU 

LFCR+1 


0188 

0008 

28 

BLANK 

BVTE 

>28 


0189 


2880 

EOF 

EQU 

>2088 

END OF FILE STATUS 

0190 


4808 

IOERR 

EQU 

>4888 

UNRECOVERABLE ERROR STATUS 

0191 

0009 

3R 

COLON 

BVTE 



0192 

000R 

46 

F 

BVTE 

, F , 


0193 

000B 

4C 

LORD 

BVTE 

'L' 


0194 

000C 

45 

END 

BVTE 

**’ E ** 

- 

0195 

000 D 

54 

TERM 

BVTE 

.*• “|“ y 


0196 







0197 



* MONITOR £ 

>UPV CALL 

CODES FOR I/O 

0198 







0199 


0900 

RDCOD 

EQU 

>8988 

READ ASCII 

0200 


0B00 

WRCOD 

EQU 

>0B88 

WRITE ASCII 

0201 

000E 



EVEN 



0202 







0203 



* PER I PHERRL DEVICE 

DEFAULT LOGICAL UNIT NUMBERS 

0204 







0205 

000E 

0000 

KBLUNO 

DATA 

0 

LOG < KEYBOARD > 

0206 

0010 

0006 

PR L UNO 

DATA 

6 

LOG < PR INTER > 

0207 

0012 

0007 

CTLUNO 

DATA 

i 

CS# C DEFAULT CASSETTE LUNO> 

0208 








0209 

0210 

02:11 


0000 

0212 


00 A0 

8213 

0214 

0215 

0216 

0014 

28 


0015 

20 


0016 

28 


0017 

28 


0018 

28 


0019 

28 


001A 

28 


001B 

20 


00 1C 

28 


001D 

28 


001E 

28 


00 IF 

28 


0020 

2 A 


0021 

28 

0217 

0822 

0888 


0824 

0000 


0026 

0000 

0218 

0828 

28 


* DEFAULT LORD VALUES 

DLDPT EQU 0 
DLDBI EQU >R0 

* DEFINITION MESSAGE 

DEFM TEXT *' * 


DEFN DATA 0, 0, 0 


LORD POINT 
LORD BIAS 


TEXT ’* 


PXRLRL 
DRTR EsRSE 



SDSMRC 947075 *B 16:59:48 SRTURDRV, DEC 11, 1976. 

948926-9901 ** PftQE 0006 


021*3 

002R 

0000 

DEFL 

DRTR 8, 0 



002C 

0000 




0220 

802E 

0D 


BYTE >D 


0221 



+ 



0222 




UNDEFINED SYMBOLS 

MESSftGE 

022.5 






0224 

002F 

55 

UNDEF 

TEXT •'UNDEF" 

UNDEFINED SVMBOL 


0020 

4E 





0021 

44 





0822 

45 





0022 

46 




0225 

0024 

6ft 


BYTE >R, >D 



0025 

0D 




0226 

0026 

20 

IJDS 

TEXT " 



0027 

20 





0028 

20 





0023 

20 




022 r’ 

002ft 

0000 

UDSN 

DRTR 0, 0, 0 



002C 

0000 





002E 

0000 



- 

0228 

0040 

0ft 


BYTE >R, >D 



0041 

0D 




0223 






0220 



:+: 

MULTIPLY DEFINED 1 

SYMBOL MESSftGE 

0221 






0222 

0042 

20 

MULDF 

TEXT ' M 

MULTIPLE DEFINED SVMBOL 


0042 

4 D 




0222 

0044 

0D 


BYTE >D 


0224 



:+; 



0225 



:+: 

LORD MESSftGE 


0226 



:+: 



0227 

0045 

4C 

LODMSG 

TEXT LOflD/END? * 



0046 

4F 





0047 

41 





0048 

44 





0049 

2F 





004ft 

45 





0048 

4E 





004C 

44 





004D 

2F 





004E 

20 




02.58 

004F 

0D 


BVTE >D 


w2-5*3 



:+: 



W24W 




NftME MESSftGE 





•+: 



t.'*242 

0050 

20 

NftMMSG 

i TEXT •*’ 



0051 

20 





0052 

20 





0052 

20 





0054 

20 





0055 

20 




W24 £ 

0056 

0000 

NftME* 

DRTR 0.« 0, 8, -■ 



0058 

0000 





005H 

0000 





005U 

2020 





0058 

0000 

LOCVftL 

DRTR 8, 0 



0050 

0000 




| rj2 c +0 

0052 

00 


BVTE >D 








U | ' 




ENTRV MESSftGE 



PAGE 000? 


FXRL.RL 

St 

•Sf'IAC 947075 +B 16:59:48 SRTUROA' 

UH 1 0 fc 

•:HSE 


348326-3801 : + :: + : 

0248 



+ 

0243 

0063 

20 

ENTMSG TEXT “* ENTRY = ' 


0064 

45 



0065 

4E 



0066 

54 



0067 

52 



0068 

59 



0063 

20 



006R 

3D 



006B 

20 


0250 

006C 


LOCNUM BSS 4 

0251 

0070 

0R 

BYTE >R, >D 


0071 

0D 


0252 




0253 



* END RCTION MESSAGE 

8254 




0255 

0072 

0R 

ENDRCT BYTE >R 

0256 

0073 

54 

TEXT y TERM/CQNT? ' 


0074 

45 



00 “7 5 

tu- •-*. 
•Jc. 

- 


0076 

4D 



0077 

2F 



0078 

43 



0078 

4F 



00 7 R 

4E 



00 ?B 

54 



007 C 

3F 



007D 

20 


0257 

00 7 E 

0D 

BYTE >D 

0258 



•+ : 

025 '3 



♦ LIST MESSRQE 

0260 




0261 

007F 

0R 

LSTMSG BYTE >R 

0262 

0088 

46 

TEXT FVP LIST? 


0081 

2F 



0082 

50 



0083 

20 



0084 

4C 



0085 

43 



0086 

53 



0087 

54 



0088 

3F 



0083 

28 


0263 

008R 

0D 

BYTE >D 

0264 




0265 



* REQUEST LORD POINT MESSAGE 

0266 




0267 

008B 

0R 

LF'MSG BYTE >R 

0268 

00 8 C 

4C 

TEXT LD PT? 


008D 

44 



00 8 E 

20 



00 8 F 

50 



0030 

J.I-J Cl ^ 

54 



0832 

28 


0263 

0033 

0D 

BYTE >D 

02 70 




0271 



* REQUEST LORD BIRS MESSRQE 

02 72 




02 73 

8034 

0R 

LBMSG BYTE >R 


1976. 


o 


•^o 


* * 

DRIB BRSE 

4 

0274 0095 40 

0096 44 

009? 20 

0098 42 

0099 49 

009R 3F 
009B 20 

0ci 75 009C 0D 

0c: i" 6 009b 



* . o , c« xo : 59 : 48 5R T URDHV , 

9 4 8 9 2 6 — 9 9 0 ± * * 


text -lp BI? 


DEC 11. 



WOE 


I 



i 


BVTE >D 
EVEN 


r.-SKLHL 

SDSMflC 947875 +B 16:59:48 

SATURDAY, 

DEC 11, 

1576. f 

liMiN L 

>R I VEf 

*=! 

9 4 8 9 2 6-99 0 1 * * 
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8279 



* MR IN DRI\ 

'ER WORKSPACE 

AREA 



tf28± 

009E 


•t‘ 

MAINWP 





0282 

009E 

0000 

dat r 

0 

R0 

TEMP 


0283 

00R0 

0000 

DATA 

LDBUF 

R± 

RDRBF 


0284 

00R2 

059C •" 

DATA 

ENDST 

R2 

ESTPT 


0285 

00R4 

CO 

CO 

ID 

DATA 

SYMBOL+SYMPTR+SYMPTR RS 

SVMP 


0286 

00R6 

0063" 

DATA 

ENTMSQ 

R4 

ENTPT 


0287 

00R8 


ENT ADD 





0288 

00R8 

0000 

ENTVL DATA 

0 

R5 

ENTVAL 


0289 

00RR 

066C •* 

DATA 

PRINTN 

R6 

PRNTN 


8290 



REF 

ENDBUF 




0291 

00RC 

0000 

SYMTAB DATA 

ENDBUF 

R7 

SPTR 


0292 

00RE 

0000 

TOPDAT DATA 

0 

R8 

TPPT 


0293 

00B0 

0000 

DATA 

0 

R9 

UNDPT i 

< I/O RTN STATUS 

0294 

0082 

0000 

DATA 

0 

R10 

I OP ARM 


0295 

0084 

0000 

DATA 

0 

Rll 

RETURN 


0296 

03B6 

058C **’ 

DATA 

SYMBOL+FLAGS+FLAGS R12 

SFLAQS 


0297 

0088 

0000 

DATA 

0 

RO 



0298 

00 8 R 

0000 

DATA 

0 

R14 



0299 

00BU 

0000 

DATA 

0 

R15 




UN DRIVER 


o . *r. 0 xc. : 59 : 48 \ UKPMY.* DEC IIj- 1976. 

948926-99®! ** 


PRQE 0010 


fejj:wi 
0.5 02 

wskss 

0.504 
0.5 05 
0506 
0 Ska .*•* 

0508 

0509 
UJ.XU 

05X2 

yili 

0514 

0515 

tij.'ib 
051 7 
bxib 

0519 

0520 

0521 

0522 
0525 
0524 

05 2D 


* TITLE: PXRLRL 

* LINK RND LORD DRIVER 

* REVISION: 85/01/74 

* OR I Q I NRL 

* 83/15/76 

* MODIFIED TO BE R COMMRND OF PXRMTR 

* COMPUTER: 99©, RSSEMBLV 

* RBSTRRCT : THE LIST OPTION IS REQUESTED. THE USER 

* SHOULD ENTER 'F' FOR FULL RND 'P' FOR 

* PRRTIRL LIST. THE QUESTION " LORD/END? ' 

* IS RSKED. THE USER SHOULD ENTER 'L' FOR 

* LORD OR "E' FOR END. IF LORD, THE DISPRTCH 

* ROUTINE IS CRLLED TO PROCESS THE MODULE. 

* THE LORD/END LOOP IS CONTINUED UNTIL 

* RLL MODULES HRVE BEEN LORDED. 

* IF END, THE ENTRV POINT RND RNV UNDEFINED 

* SYMBOLS RRE PRINTED, RND THE TERM/ CONT 

* QUESTION IS RSKED. IF THERE RRE STILL 

* SOME UNDEFINED SYMBOLS, THE CONT OPTION 

* MAY BE SPECIFIED RND ADDITIONAL MODULES 

* MAY BE LORDED. ONCE RLL MODULES RRE LORDED, 

* TERM MAY BE SPECIFIED, RND CONTROL WILL 

* RETURN TO THE MONITOR. THE USER MAY THEN 

* EXECUTE OR DEBUG HIS PROGRAM WITH MONITOR 

* COMMANDS. 


0520 



* CALLING SEQUENCE: 


052 » * 



* BL 0LRLCSR 


0 5 2 8 



* STATISTICS: WORKSPACE = 

MRINWP < UNSHARED!) 

052!^ 



* ROUTINES CRLLED: 


0550 



* PRINT, PRINTN, 

KEVIN, DSPTCH, GETSFL, 

0551 



* GETSNM, BINHE>- 

;, PRCRLF, GETHEX, OPEN 

05 52 



* 


WJii 



* PXRLRL COMMRND INTERFACE 

0 .5 5 4 






80BE 


LRLCSR 


0550 

80BE 

0420 

BLWP ©PXRLRL 

START UP LRL 


00C0 

0004 **' 



0337 

00C2 

045B 

RT 

RETURN TO MONITOR 

033:8 





0339 

0004 


PXRLRL 


0348 

0004 

009E ’ 

DATA MRINWP, LRL 

WORKSPACE, START 


0006 

0008 * 



0 5 4 1 

0008 


LRL 


0542 

0008 

02 E0 

LWP I MRINWP 

I NIT WP 


00CR 

009E - 



0545 



+ SET UP XOP LEVEL 15 TRAP*******************************: 

03:44 

0000 

0209 

LI R9, SVCWP 



000 E 

0000 



0545 

00D0 

0809 

MOV R9, ©>7C 



00D2 

0070: 



0546 

00 D 4 

0209 

L I R9, SVCSR 



00l..:» fo 

0000 



054 

00D8 

0809 

MOV R9, 0>7E 


i.-i .-1 O 

00 DR 

00 7E 




00DC 86R0 
WUDt 8000 
00E0 1000 
08E2 

80E2 020R 


BL 0PRCRLF 
NOP 


PRINT CR/LF 
IGNORE ERROR RETURN 


RQLP 


LI 


I OPRRM, LPMSG 


REQUEST LORD POINT 




- 


i‘rino 

"t r »£* f o 

v-o X6 : 59 : 48 

SM IURDHY, DEC 11, 1976. 

MAIN DRIVER 


948926-9901 ** 

PAGE 0011 

0253 

00E4 

00E6 

0088 

0416 


BLWP 

*PRNTN 


0354 

00E8 

06ft0 


BL 

©GETHEX 

INPUT HEX VALUE 


00ER 

0000 





0355 

00EC 

■10FFI 


JMP 

RQLP 

IF ERROR 

0356 

00EE 

1002 


JMP 

STLP 

GOOD INPUT VALUE 

0357 

00F0 

020ft 


LI 

R10, DLDPT 

NO INPUT, ASSUME DEFAULT 


00F 2 

0000 





0358 

08F4 


STLP 




0359 

0QF4 

C8@R 


MOV 

R10, ©LGRDPT 

SAVE LOAD POINT 


00F6 

01FE •' 





0350 

00F8 


RQLB 




0361 

00F8 

020ft 


LI 

IOPftRM, LBMSO 

REQUEST LORD BIftS 


00FR 

0094 " 





0362 

00FC 

0416 


BLWP 

*PRNTN 


0363 

00FE 

06R0 


BL 

©GETHEX 

INPUT HEX VALUE 


0100 

00EA" 





0364 

0102 

10FA 


JMP 

RQLB 

IF ERROR 

0365 

0:104 

1002 


JMP 

STLB 

GOOD INPUT VALUE 

0366 

0106 

020ft 


L. I 

R10, DLDBI 

NO INPUT, ASSUME DEFAULTS 


0108 

00R0 




' 

0367 

018ft 


STLB 




0368 

010ft 

C80R 


MOV 

R10, ©BIRSWD 

SAVE LORD BIAS 


010C 

01Eft 





0369 

010E 

C14ft 


MOV 

R10, ENTVRL 

SET INITIAL ENTRV POINT 

03 70 

0110 

0207 


LI 

SPTR, ENDBUF 

START OF PXRMTR IS END USRMEM 


0112 

00RC 





0371 

0114 

0487 


MOV 

SPTR, *ESTPT 

END OF SYMBOL TABLE POINTER 

0372 

0116 

0607 


DEC 

SPTR 


8373 

0118 

C4C7 


MOV 

SPTR, +SVMP 

I NIT SYMBOL TABLE POINTER 

0374 

011ft 

05ft0 


INC 

©FSTIM 

SET FIRST MODULE FLAG 


011C 

041ft-' 





0375 

011E 

0208 


LI 

TPPT, >80 

SET DATA LIMIT 


0120 

0080 





03 76 







03 7 7 



* LI 

ST OPTION 


03.-6 







03 79 

0122 

020ft 


LI 

IOPftRM, LSTMSQ 

PRINT LIST OPTION MESSAGE 


0124 

007F- 





0380 

0126 

0416 


BLWP 

+PRNTN 


0381 

0128 

0281 


MOV 

RDRBF, IOPftRM 

WAIT FOR RESPONSE 

0382 

812ft 

0420 


BLWP 

©KEVIN 



012C 

0620 •" 





0383 

012E 

04E0 


CLP 

OL I ST 

CLEAR LIST FLAG 


0130 

0530 





0384 

0132 

9811 


CB 

•+=RDRBF, ©F 

IS FULL LIST DESIRED? 


0134 

000R -* 





0385 

0136 

1602 


JNE 

ftSK 

NO - CONTINUE 

0386 

0138 

05R0 


INC 

0LIST 

YES - SET FULL LIST FLAG 


013ft 

053C ** 





038 7 







0388 




REQU 

EST LORD/END ACTION 

0389 







0390 

01.3C 


RSK 




0391 

013C 

02E0 


LWPI 

MftINWP 

LOAD WORKSPACE POINTER 

1 

013E 

009E *“ 





1 0392 

0140 

r;-i *i a.' . 1 

86R0 

L-i L-i 1". £-~ 


BL 

©PRCRLF 

PRINT CR/LF 

0393 

kJ ..L *-+ 

0144 

U U L- L. 
1000 


NOP 


IGNORE ERROR RETURN 

0 jC 9 4 

0146 


REQLE 





I 


rV'.p:,i_ru_ 

P1H i N DRIVER 


SDSMRC 947075 *B 16:59:48 SATURDAY, DEC 11, 1976. 
948926-9901 *=* 
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03*95 

0146 

020ft 


LI 

IOPftRM, LODMSG 

PRINT LOftD/END MSG 


0148 

0045 y 





0396 

014ft 

0416 


BLWP 

*PRNTN 


039? 

014C 

0281 


MOV 

RDPBF, IOPftRM 


M 

014E 

04DA 


CLR 

* IOPftRM 

INIT INPUT BUFFER TO 0 

0399 

0150 

0420 


BLWP 

©KEVIN 

WRIT FOR RESPONSE 


0152 

062C *" 





0400 

0154 

9811 


OB 

*RDRBF, ©END 

END? 


9156 

000 C *•' 





0401 

0158 

1314 


JEQ 

ENDPRO 

VES 

040k’ 

015ft 

9811 


OB 

*RDRBF, ©LOAD 

LOAD? 


015C 

000B 





0403 

0:15E 

16F3 


JNE 

REQLE 

NO, ASK AGAIN 

0404 

0168 

0820 


MOV 

©K7, ©CTLUNO 

DEFAULT TO CASSETTE LUNO 7 


0162 

0594 *' 






0164 

0012 ■" 





0405 

0166 

06D1 


SWPB 

; + : RDRBF 

CASSETTE LUNO INPUT? 

0406 

0168 

D011 


MOVE! 

+RDRBF, TEMP 


0407 

016ft 

1304 


JEQ 

OPNCftS 

NO, USE DEFAULT 

£»400 

016C 

0248 


find i 

TEMP, >F00 

CLEAR ALL BITS EXCEPT LUNO 


016E 

0F00 




' 

0409 

0170 

D800 


MOVE 

TEMP, ©CTLUNO+1 

SAVE INPUT LUNO 


0172 

0013-' 





04*10 

0174 


OPNCftS 




0411 

0174 

C2ft0 


MOV 

©CTLUNO, IOPftRM 

OPEN CASSETTE 


0176 

0012 **' 





041k 

0 1 s'* C* 

0420 


BLWP 

©OPEN 



017ft 

0600 *" 





041.3 

0170 


BftTCH 




0414 

01 7 C 

0420 


BLWP 

©DSPTCH 

PROCESS MODULE 


017E 

0200 ' 





0415 

0180 

10FD 


•JMP 

BftTCH 

PROCESS NEXT MODULE 

041b 







0417 



1 

PROCE: 

5S UNDEFINED SYMBOLS 

041W 







0419 

0182 


ENDPRO 




0420 

0182 

0709 


SETO 

UNDPT 

SET UNDEFINED PRINT FLAG 

0421 

0184 

0407 


MOV 

SF’TR, +SVMP 

POINT TO SYMBOL TABLE 

0422 

0*186 


CKSVMB 




0423 

0186 

8493 


0 

+SVMP, *ESTPT 

END OF TABLE? 

0424 

0188 

1218 


•JLE 

ENTB 

YES - END PROCESSING 

0425 

018ft 

0420 


BLWP 

©GETSFL 

NO - GET SYMBOL FLAGS 


0180 

05ft8 - 





0426 

018E 

0610 


DEC 

+SFLRGS 

UNDEFINED? 

042 7 

0190 

1114 


•JLT 

NXSVM 

NO - GET NEXT SYMBOL 

0426 

0192 

0249 


MOV 

UNDPT, UNDPT 

PRINT -UNDEFINED**' MESSAGE? 

0429 

0194 

1305 


JEQ 

SPRNT 

NO - SKIP 

0430 

0196 

020ft 


L.I 

IOPRRM, UNDEF 

POINT TO MESSAGE 


0198 

002F 





0431 

01 9H 

0428 


BLWP 

©PRINT 



0190 

0668 *" 





0432 

0:19E 

0409 


CLR 

UNDPT 

CLEAR PRINT FLAG 

0433 

01H0 


SPRNT’ 




0434 

0*lft 0 

0420 


BLWP 

©GETSNM 

POINT TO SYMBOL NAME 


01ft2 

05BC ** 





0435 

0*lft 4 

C2ft0 


MOV 

©SVMBOL+SVMNM+S 

t'MNM, IOPftRM 


01ft 6 

058E •" 





0436 

01 ft 8 

0200 


LI 

TEMP, UDSN 

POINT TO NAME IN MESSAGE 


01ft ft 

003ft- 





043? 

01 RC 

003ft 


MOV 

+ 1 OPRRM+, + : TEMP+ 

MOVE NAME INTO MESSAGE 


\ 


■XRLRL 

SD 

SMRC 947075 *B 16:59:48 SRTURDRV, DEC 11, ISM 

IRIN 1 

2RIVEF 

i 

948926-9901 ** 

| | PfiGE 0013 

0438 

01HE 

CC3R 

MOV 

♦ I OPRRM+, *TEMP+ 

if- 

0439 

01B0 

C41R 

MOV 

♦ I OPRRM, *TEMP 

1 *■ 

0440 

01B2 

020R 

LI 

IOPRRM, UDS 

POINT TO MESSRGtl 


01B4 

0036' 



J: 

0441 

01B6 

8420 

BLWP 

©PRINT 

PRINT IT i I 


01B8 

0663 '' 



i i 

044k; 

01Bfl 


NXSYM 


f jf 

0443 

01BR 

64E0 

S 

©TEN, *SVMP 

POINT TO NEXT ghfTRV 


01BC 

059R" 




0444 

01BE 

10E2 

IMP 

CKSVMB 

CHECK NEW SYMBOL 

0445 



* 



0448 



* ENTRY MESSRGE RND TERMINRTE OPTION 

0447 



* 



0448 

01C0 


ENTB 



0449 

01C0 

C284 

MOV 

ENTPT, IOPRRM 

PRINT ENTRY POINT MSG 

0450 

01C2 

0420 

BLWP 

©E: INHEX 

CONVERT ENTRY LOCRTION 


0104 

0550" 




0451 

01C6 

00R8 "' 

DRTR 

ENTVL 

ENTRY VRLUE 

04D<£ 

8108 

006 C 

DRTR 

LOCNUM 

LOCRTION IN MESSRGE 

0453 

81CR 

0420 

BLWP 

©PRINT 



tnuc 

0668"' 




0454 

01CE 

020R 

LI 

IOPRRM, ENDRCT 

PRINT TERM/CONT MSG 


01D0 

0072 "' 




0455 

01D2 

8416 

BLWP 

♦F'RNTN 


0458 

01D4 

C281 

MOV 

RDRBF, IOPRRM 

WRIT FOR RESPONSE 

045 7 

01D6 

0420 

BLWP 

©KEVIN 



01D8 

062C "' 




0458 

01DR 

9811 

CB 

♦RDRBF, ©TERM 

TERMINRTE? 


01DC 

000D " 




0459 

01DE 

16RE 

JNE 

RSK 

NO - GET MORE MODULES 

0480 






0461 



END OF P:« 

:rlrl 


046k! 






0463 

01E0 

C885 

MOV 

ENTVRL, ©USRPC 

SET UP ENTRY POINT FOR PXRMTR 


01E2 

0000 




0464 

01E4 

0280 

RTWP 


RETURN 


.«.* m*' •£* * ii *w 
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I 


w4bi**‘ 

01468 


H*: 

* DSPTCH WORKSPACE AREA 
■* 


01 »•* 01 

01b 6 


DSWP 

04 ,-*l 

01E6 

0000 


014 .‘2 

01E8 

0000 


014 ,*• j: 

01ER 

00R0 

BIASWD 

is? 4/ 4 

01EC 


DSWP2 

04 /D 

01EC 

0000 

NWLOC 

0»4 »** & 

01bb 

0000 


01H* «■ 

0ih 0 

0000 


bn r o 

oir ci 

0101001 


UH- 1* 

0lh 4 

010100 


0480 

011-6 

0000 


0481 

01F8 

0000 


04 

01 h H 

0000 


W4 W Ji- 

01FC 

0000 


04 w 4 

01FE 

0000 

LOADPT 

0h*c»;j 

0 c.: 00 

0ij:|~ 6 ** 


0466 

0 2 0 ini 

010100 


048 «** 

0204 

08RE - 


0488 

012016 

0000 


0486 

0ei005 

0101010 



0ci0l“1 

01010101 



DATA 

0 

R0 

DATA 

0 

R1 

DATA 

>A0 

R2 

DATA 

0 

R3 

DATA 

0 

R4 

DATA 

0 

R5 

DATA 

0 

R6 

DATA 

0 

R7 

DATA 

0 

R8 

DATA 

8 

R9 

DATA 

0 

R10 

DATA 

0 

Rll 

DATA 

0 

R12 

DATA 

INCHK 

R13 

DATA 

0 

R14 

DATA 

TOPDAT 

R15 

DATA 

0 

R13 

DATA 

0 

R14 

DATA 

0 

R15 


INPT 

TGFLD 

BIAS 

NEWLOC 

LOCPT 

SVPT 

HLD 

FLGVL 

PC 

RETURN STATUS ON READ 

IOPARM 

RETURN 

LDPT 

I NCR 

I NS ID 

TDAT 

OLD WP 

OLD PC 

OLD ST 


:; ,KL.HL 


UHU MODULE 0 ISP ATI 




0492 


4 

04 95 


4 

0494 


4 

0 495 


4 

0496 


4: 

049 7 


4 

0496 


4 

0499 


4 

0500 


4 

050:1 


* 

0502 


4 

0503 


4 

0584 


4 

0505 


4 

0506 


4 

050 7 


4 

0508 


4 

0509 


4 

0510 


4 

0511 


4: 

0512 


4 

8513 


4 

0514 


4 

0515 


4 

0516 


4 

051 7 


4 

0518 


4 

0519 


■4 

0520 


4 

0521 


4: 

0522 


4 

0525 


4 

0524 


4 

052 5 


4 

0526 


4 

052 7 


4 

0528 


4 

0529 


4 

0530 


4 

0531 


4 

0552 


4 

0553 


4 

0554 


4 

0555 


4 

0556 


4 

055 7 


4 

05 58 


4 

055 9 ' 


4 

0540 


4 

0541 


4 

0542 


4 

0543 


4 

0544 

028C 

D! 

0545 

O20C 01EC " 


0546 

020E 0210' 


0547 

0210 

D: 
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TITLE 
REVISION : 


COMPUTER : 
ABSTRACT : 


DSPTCH 
LORD MODULE 
05/01/74 
ORIGINRL 
03/15/76 
MODIFIED 
990, 990 


DISPATCHER 


TO RUN WITH PXRMTR 
RSSEMBLY 

OBJECT RECORDS RRE RERD RND PROCESSED. 

ERCH RECORD CONTAINS SEVERAL OBJECT ENTRIES. 

AN OBJECT ENTRY CONSISTS OF A TAG FIELD AND 
UP TO TWO ADDITIONAL FIELDS. THE TAG FIELD 
OF EACH ENTRY IS USED TO BRANCH TO THE 
APPROPRIATE PROCESSOR. R TAG FIELD OF 'F' 

BLWP ©DSPTCH 
STATISTICS: 

WORKSPACE = DSWP RND DSWP2 < UNSHARED > 

ALL SIXTEEN REGISTERS RRE USED BY OVERLAPPING 
DSWP AND DSWP2. ALL ENTRANCES RRE DEFINED 
THROUGH EXWP2 TO RETAIN THE RETURN ENVIRONMENT 
THE FIRST INSTRUCTION IS THEN A LWPI DSWP"' 

TO GAIN THREE ADDITIONAL REGISTERS FOR USE. 
WILL CAUSE A NEW RECORD TO BE READ. 

CALLING SEQUENCE: 

A "LWPI DSWP2 " WILL THEN PRECEDE ANY RTWP 
INSTRUCTION. 

THE TAG FIELDS REPRESENT THE FOLLOWING 
ENTRY TYPES: 


* 

+: 

+ 

* 

* 

* 

* 

+ 

* 

* 

* 

+. 

* 

* 

* 

t= 

+ 


TAG 

0 

1 

Cl 

5 

4 

5 

6 
r" 

8 

9 

A 

B 

D 

E 

F 

G 

H 


MEANING 
IDT RECORD 

ABSOLUTE ENTRY ADDRESS 


■' ADDRESS 

::E IN RELOCATABLE CODE 
:.E IN ABSOLUTE CODE 


RELOCATABLE ENTRY 
EXTERNAL REFERENt 
EXTERNAL REFERENC 
RELOCATABLE EXTERNAL DEFINITION 
ABSOLUTE EXTERNAL DEF I N I T I ON 
CHECKSUM 
IGNORE CHECKSUM 
ABSOLUTE LOAD ADDRESS 
RELOCATABLE LOAD ADDRESS 
ABSOLUTE DATUM 
RELOCATABLE DATUM 
LOAD BIAS 
ILLEGAL TAG FIELD 
END OF RECORD 

RELOCATABLE SYMBOL < IGNORED > 
ABSOLUTE SYMBOL < IGNORED) 


ROUTINES CALLED: 

B INHEX, CONVRT, CUMCHK, ERROR, GETSVL, HEXBIN, 
INCHK, LDR, PRCRLF, PRINTN, READ, SRCSYM 


SPTCH 


SBG 


DATA DSWP2 
DATA DSBG 

LWPI DSWP 


WORKSPACE 

START 

ADJUST WORKSPACE 


CLR I NS ID 
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W33l 

©332 

feiilOi 




READ AH OBJECT RECORD <F> 

0216 


•T* 

T AGP 




©334 

0216 

0200 


LI 

INPT, LDBUF 

POINT TO READ BUFFER 


02 IS 

00H0- 





©333 

021H 

C280 


MOV 

INPT, I OP ARM 


©336 

02 1C 

0420 


BLWP 

©READ 

READ A RECORD 


021E 

0622' 





0557 

0220 

0249 


AND I 

R9, EOF+IOERR 

EOF OR IOERR ENCOUNTERED 


0222 

6000 





0558 

©338 

0224 

168B 


JNE 

ASK 

YES, RESTART 

0560 



*: 

ADJUST BIAS AND BRANCH BV TAG CHARACTER 

0561 

0562 

©226 


CHLP 




0563 

8226 

0242 


AND I 

BIAS.. >FFFE 

SET BIAS TO WORD BOUNDARY 


0228 

FFFE 





0564 

©22ft 

04C7 


CLR 

FLGVL 

CLEAR REFXDEF FLAG 

0565 

822C 

04C6 


CLR 

HLD 

CLEAR TEMP LQCN FOR OFFSET 

0566* 

822E 

D070 


MOVE: 

*INPT+, TGFLD 

GET TAG FIELD 

05 b 

023© 

0221 


AI 

TGFLD, ->3000 

ADJUST FOR ASCII 


©232 

D000 





0568 

0234 

1120 


JLT 

TAGE 

NOT IN RANGE - INV LD CD 

0568 

©236 

0971 


SRL. 

TGFLD, 7 

ADJUST TAG FOR BRANCH 

05 1*'* 0 

©238 

0281 


Cl 

TGFLD, JMPTBE- 

JMPTB— 1 IN RANGE? 


023R 

0031 





0571 

023C 

151C 


JGT 

TAGE 

NO - INV LD CD 

05 «** 2 

023E 

C061 


MOV 

©JMPTB < TGFLD > 

, TGFLD BRANCH ON TAG 


0240 

0244 •' 





0573 

0574 

©242 

0451 


B 

♦TGFLD 


0575 




TAG CHARACTER JUMP 

TABLE 

0576 

0577 

©244 


JMPTB 




0578 

0244 

0288 **' 


DATA 

T AG0 

IDT RECORD 

05 79 

8246 

02CE •'* 


DATA 

TAG1 

ABSOLUTE ENTRY ADDRESS 

0580 

0248 

02CC *" 


DATA 

TAG2 

RELOCATABLE ENTRY ADDRESS 

0581 

024ft 

02D8 ** 


DATA 

TAG 3 

EXTERNAL REF - RELOC CODE 

HhWp 

024C 

02Dft *" 


DATA 

TAG4 

EXTERNAL REF - ABS CODE 

058 S 

©24E 

034E *" 


DATA 

TAGS 

RELOCATABLE EXTERNAL DEF 

0384 

023© 

0350 *" 


DATA 

TAG6 

ABSOLUTE EXTERNAL DEF 

0585 

©252 

0388 •*' 


DATA 

TAG7 

CHECKSUM 

05*86 

0234 

03BC •" 


DATA 

TAGS 

IGNORE CHECKSUM 

0587 

0256 

03C4 *" 


DATA 

TAGS 

ABSOLUTE LOAD ADDRESS 

0588 

0258 

02BE- 


DftTft 

BKOIJT 

COLON: END OF MODUL 

0388 

025ft 

0276" 


DATA 

TAGE 

INVALID LOAD CODE 

0380 

023C 

0276" 


DATA 

TAGE 

INVALID LOAD CODE 

0381 

025E 

0276 " 


DATA 

TAGE 

INVALID LOAD CODE 

0382 

026© 

0276 " 


DftTft 

TAGE 

INVALID LOAD CODE 

©385 

©262 

0276 " 


DATA 

TAGE 

INVALID LOAD CODE 

0384 

0264 

0276 " 


DATA 

TAGE 

INVALID LOAD CODE 

0383 

0266 

03C2 *" 


DftTft 

TAG A 

RELOCATABLE LOAD ADDRESS 

0386 

0268 

©3D2 •" 


DATA 

TAGB 

ABSOLUTE DATUM 

038 7 

026ft 

03D0 *" 


DATA 

TAGC 

RELOCATABLE DATUM 

0588 

026C 

03Eft '" 


DATA 

TftGD 

LOAD BIAS 

0388 

0266 

0276 " 


DATA 

TAGE 

ERROR 

0600 

0270 

0216 " 


DATA 

TAQF 

END OF RECORD 

0301 

0272 

0282 *" 


DATA 

TAGGH 

RELOCATABLE SYMBOL 

0302 

02 74 

0282 •" 


DATA 

TAGGH 

ABSOLUTE SYMBOL 

0305 


0276 " 

JtlPTBE 

EQU 

$ 
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4 

8604 

0605 



4: 

ILLEGRL TRG CHRRRCTER 

< E > 

0606 



* 




0fc.0 »•“ 

0276 


TRGE 




0608 

0276 

020R 


LI 

IOPRRM, I LCD 

ILLEGAL LOAD CODE 

% 

02 ?8 

2302 





060*3 

027R 


ERR 




0610 

027R 

06R0 


BL 

©ERROR 

CALL MONITOR ERROR ROUTINE 


0270 

0000 





0611 

027E 

0460 


B 

©LAL 

FATAL ERROR - RESTART 


0280 

00C8 





0612 



* 




0613: 




SYMBOL TABLE TAG CHARACTERS <G/H> 

0614 



* 




WDIO 

0282 


TflQOH 




061.6 

0282 

0220 


RI 

I NPT , I© 

INCREMENT POINTER PAST ENTRY 


02*~*4 

000R 





061 

0286 

10 OF 


JMP 

CHLP 

TO IGNORE SYMBOL TABLE TAGS 

0618 



:+: 




06:13 



:+: 

PROCESS MODULE IDT <0> 


0620 







0621 

0288 


TRQ0 




06ci2 

0288 

C802 


MOV 

BIAS, ©LOCPTR 

GET PRESENT BIAS 


028H 

0424 - 





0623 

0280 

C38E 


MOV 

I NS ID, I NS ID 

PRESENTLY INSIDE MODULE? 

0624 

028E 

1607 


-THE 

TRG0B 

YES - TEST IF PROPER 

0625 

0230 

0420 


BLUR 

©LDP. 

NO - PROCESS IDT 


0232 

0438 ** 





0626 

0294 

1018 


JMP 

DSP EXT 

EXIT IF MODULE FLUSHED 

062? 

8236 

0460 


B 

©ASK 

IF ERROR, EXIT LOOP 


0238 

0130 x 





0628 

023R 

058E 


INC 

I NS ID 

SET INSIDE MODULE FLAG 

0623 

0230 

100D 


JMP 

TAG0CN 

CONTINUE 

0630 

023E 


TRQ08 




063*1 

023E 

06R0 


BL 

©CONVRT 

GET CONVERTED VALUE 


02R0 

0402" 





0632 

02R2 

01EO *• 


DATA 

NWLOC 

STORE IT IN LOCATION TEMP 

0633 

02R4 

R803 


R 

NEWLOC, ©NUBIAS 



02H6 

04 E 2 *’’ 





0634 

02R8 

3818 


OB 

♦ INPT, ©BLANK 

IS IDT NAME BLANK 


02 RR 

0008 " 





0635 

02RO 

1303 


JEQ 

TAG0C 

YES - CONTINUE 

0636 







06 3 r*‘ 




MISSING END STATEMENT 


0638 







0633 

02RE 

820R 


LI 

I OP ARM, MSEND 

MISSING END STMT ERROR 


02B0 

2303 





0640 

0282 

18E3 


JMP 

ERR 


0641 

0284 


TRQ0C 




0642 

0284 

0220 


AI 

I NPT, -4 

ADJUST POINTER PAST LENGTH 


0286 

FFFO 





0643 

0288 


TRG0C! 

N 



0644 

0288 

0220 


RI 

I NPT, 12 

ADJUST POINTER 


02 8 R 

0000 





0645 

0280 

1084 


JMP 

CHLP 

GET NEXT TAG 

0646 







064 { 




END MODULE < : > 


0648 







0643 

028E 


BKOUT 




0650 

02 BE 

04 CE 


CLP 

I NS ID 

CLEAR INSIDE MODULE FLAG 
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0651 

02C0 

A0A0 


A ©NWBIAS, BIAS 

ADD IN NEW BIAS 


02C2 

04E2"' 




0652 

02C4 

0582 


INC BIAS 

ACCOUNT FOR ODD LENGTH 

0653 

02C6 


DSPEXT 


0654 

U2C6 

02E0 


LWPI DSWP2 



02C8 

01EC •' 




0655 

0656 

02CA 

0380 


RTWP 

RETURN 

065 7 



+ 

GET RELOCATABLE ENTRY 

ADDRESS <2> 

0656 






0058 

02 CL- 


TAG2 



0660 

02CC 

C182 


MOV BIAS, HLD 

SET RELOCATABLE OFFSET 

►l«C*OX 



:+: 



006c:! 




GET ABSOLUTE ENTRY ADDRESS <1> 

066 3 



:+: 



00*64 

02Ch 


TAG1 



0665 

02CE 

069D 


BL + INCP 

TEST INSIDE MODUL AND CONVERT 

0066 

02L>0 

00R8 


DATA ENTADD 

PLACE IN ENTRY ADDRESS 

0667 

82D2 

A806 


A HLD, ©ENTADD 

ADD IN OFFSET 


02D4 

00R8 •" 




0668 

0604 

82D6 

10 A 7 

:+: 

JMP CHL.P 

GET NEXT TAG 

00 70 
06 71 



* 

GET RELOCATABLE CODE 

REF <10 

06 72 

02i;«8 


TAGS 



0673 

02D8 

C182 


MOV BIAS, HLD 

SET RELOCATABLE OFFSET 

06 74 



* 



06 75 




GET ABSOLUTE CODE REF 

<4> 

00 76 






06 7 7 

02 DH 


TAG4 



06 78 

02DR 

069D 


BL : + : I NCR 

TEST INSIDE MODUL AND CONVERT 

0o r 8 

0c:b»u 

01 EC 


DATA NWLOC 

PLACE IN NWLOC 

0680 

0681 

02DE 

A0C6 


A HLD, NEWLOC 

ADJUST WITH BIAS 

0682 



:+: 

PROCESS REF CHAIN LINKAGE 

0683 

0684 

02E0 

C800 

:+: 

MOV INPT, ©NSMBL 

POINT TO SYMBOL NAME 


02 E 2 

04EA"' 




0685 

02E4 

0420 


BLWP ©SRCSYM 

SEARCH SYMBOL TABLE 


02E6 

05C6 




0686 

02E8 

1.01B 


JMP ENTERR 

IF NOT FOUND, ENTER IT 

068 7 

02 EH 

0220 


ft I INPT, 6 

ADJUST POINTER 


02 EC 

0006 




0688 

02EE 

Cl 03 


MOV NEWLOC, LOCF'T 

POINT TO NEW END OF CHAIN 

0688 

02E 0 

139ft 


JEQ CHLP 

IF ZERO, NO REF, SO END PROC 

0680 

02F2 

0420 


BLWP ©GETSVL 



02E4 

05B0 




0081 

02F 6 

Cl 60 


MOV ©SYMBOL+SYMNM+S 

YMNM, SVPT GET VALUE 


02F8 

058E •" 




0682 

02 FR 

0620 


DEC ©SVMBOL+FLAGS+FLAGS 


02F C 

058C •" 




0683 

02FE 

1109 


JLT FXRF 

IF DEF, SATISFY CHAIN 

0 0 .17 H* 

0 300 


LPFXR ‘ 



0085 

0300 

A10C 


A LDPT, LOCPT 

POINT TO ACTUAL MEM ADDR 

0086 

0302 

C194 


MOV *LOCPT, HLD 

GET NEXT CHAIN ENTRY 

068 r' 

0304 

1302 


JEQ ENDLPR 

IF ZERO, END OF CHAIN 

0688 

0306 

C106 


MOV HLD, LOCPT 

CHANGE LOCATION POINTER 

0688 

0308 

10EB 


JMP LPFXR 

CONTINUE CHAINING 

0 , 00 

03 0H 


ENDLPR 


0 701 

03 0R 

FI10C 


ft LDPT, LOCPT 

POINT TO ACTUAL MEM ADDR 
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070 2 

030C 

C515 


MOV 

♦SVPT/ ♦LOCPT 

BREAK END LINK 

0703 

O30E 

C543 


MOV 

NEWLOC, *SVPT 

CREATE NEW LINK IN SYMBOL TAB 

0 704 

0310 

108R 


JMP 

CHLP 

END PROC/ GET NEXT TAG 

0 70S 

0312 


FXRF 




0706 

0312 

C0D5 


MOV 

♦SVPT, NEWLOC 

GET VALUE 

0707 

0314 


LPDF 




0708 

0314 

R10C 


R 

LDPT.. LOCPT 

POINT TO ACTUAL MEM ADDR 

070*3 

0316 

C194 


MOV 

♦LOCPT, HLD 

POINT TO NEXT ENTRY IN CHAIN 

0 710 

0318 

C503 


MOV 

NEWLOC,. ♦LOCPT 

FILL IN RESOLVED VALUE 

071:1 

031H 

C106 


MOV 

HLD/ LOCPT 

CHANGE LOCATION POINTER 

0712 

031C 

16FB 


JNE 

LPDF 

CONTINUE CHAINING 

0 r x - 2 * 

W31E 


CHLP3 




0 714 

031E 

1083 


JMP 

CHLP 

END PROC/ GET NEXT TAG 

0 71 S 



♦ 




0 716 




ENTER 

SYMBOL INTO TABLE 


0 7 X 7 



♦ 




0 718 

0320 


ENTERR 




0718 

0320 

0587 


INC 

FLGVL 

SET REF CODE 

0 720 

0322 


ENTERD 



0 721 

0 ji- 2 2 

Cl 60 


MOV 

0SYMBOL+SYMPTR+SYMPTR, SVPT 


0324 

0588" 




" 

0 722 

0326 

C547 


MOV 

FLGVL/ ♦SVPT 

MARK FLAG 

0 723 

8328 

0225 


RI 

SVPT/ -7 

POINT TO NAME LOCATION 


032R 

FFF9 





0724 

032C 

DD70 


MOVB 

♦ INPT+, ♦SVPT + 


0 725 

032E 

DD70 


MOVE: 

♦ INPT+/ ♦SVPT+ 

MOVE IN NAME 

Pi 720 

fe)330 

DD70 


MOVB 

♦ INPT+, ♦SVPT + 


0727 

0332 

DD70 


MOVB 

♦ INPT+.. ♦SVPT + 


*c«i* 28 

0334 

DD70 


MOVB 

♦ I NPT +.. ♦SVPT+ 


0 »• 28 

0336 

D570 


MOVB 

♦ I NPT +.. ♦SVPT 


0 730 

0338 

0225 


RI 

SVPT/ -7 

POINT TO VALUE 


033R 

FFF9 





0 731 

033C 

C543 


MOV 

NEWLOC/ ♦SVPT 

MOVE IN VALUE 

0732 

033E 

Pi < 4 fci 

C805 

•* 


MOV 

SVPT/ GENDST 

CREATE NEW END OF SYMBOL TABLIi 

0733 

8342 

881F 



♦TDRT/ GENDST 

IS LIMIT BELOW SYMBOL TABLE? 


0344 

059C **' 





0 734 

L-1 .** /S 

0346 

lflEB 

•x« 

•JL 

CHLP3 

YES - GET NEXT TAG 

0 1 

0 7 J-8 



•T* 

LORD RDDRESS ERROR 


0 7 J- 7 



♦ 




0 738 

0348 


LDRD|ER 




0 739 

0348 

820R 


LI 

IQPARM, LRER 

POINT TO ERROR CODE 


034H 

2304 





0 7 40 

034 C 

1096 

i 

JMP 

ERR 


0'7 41 







0 742 




GET RELOCATABLE DEF <5> 


0 7 43 







0 744 

034 E 


TRQ5 




0 745 

034E 

C182 


MOV 

BIAS,. HLD 

SET RELOCATABLE OFFSET 

0 7 40 







0 7 4 7 




GET ABSOLUTE DEF C6> 


0 7 48 







0 748 

0350 


TRG6 




0 750 

0350 

06 9 D 


BL 

♦ I NCR 

TEST INSIDE MODUL AND CONVERT 

0751 

0352 

01 EC ' 


DATA 

NWLOC 

PLACE IN NWLOC 

0 752 

£i 

0354 

R0C6 

-JL- 

R 

HLD.. NEWLOC 

ADJUST WITH BIAS 

0754 



•T* 

PROCES 

•S DEF RESOLUTION 


0 755 



:+: 
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0 75b 

0356 

C060 


MOV 

©LIST.. TGFL.D 

IS FULL LIST DESIRED 


0358 

053C X 





0i*O7 

035H 

1313 


JEQ 

PRNTOV 

NO - SKIP 

0 7Db 

035C 

0428 


BLWP 

06 INHEX 

YES - CONVERT LOCATION 


0.55tL 

0OD0 ' 





0759 

8360 

01EC-' 


DATA 

NWLOC 

LOCATION VALUE 

8 r' t>W 

0-Sb2 

802H ' 


DATA 

DEFL 

LOCATION IN MESSAGE 

8 r bl 

8364 

0201 


LI 

TGFLD, DEFN 

POINT TO NAME IN MESSAGE 


83bb 

W822 ' 





8 i''bci 

8368 


MVNM 




0 7b 3 

0368 

DC78 


MOVB 

* I NPT +, *TGFLD+ 

MOVE IN NAME 

8 7 b4 

036R 

0281 


Cl 

TGFLD, DEFN +6 



83bC 

0028 x 





«-i« r 

83bb 

11 FC 


JLT 

MVNM 


07bb 

8370 

0220 


AI 

I NPT, -6 

RESET POINTER 


0372 

FFFA 





07b 7 

8374 

86A0 


BL 

0PRCRLF 

PRINT CR/LF 


83 76 

8142- 





0 7b8 

8378 

1000 


NOP 


IGNORE ERROR RETURN 

kj/foy 

837ft 

020A 


LI 

I OP ARM, DEFM 

PRINT DEFINITION MESSAGE 


8.57b 

0014-' 





h:.« r 8 

83 7h 

0420 


BLWP 

0PRINTN 



0J-b0 

066C 





0 »• X 

0382 


PRNTOV 



8 r‘ «- X* 

8382 

C800 


MOV 

I NPT, 0NSMBL 

POINT TO SYMBOL NAME 


8384 

04EA 





0 773 

0386 

0420 


BLWP 

0SRCSYM 

SEARCH SYMBOL TABLE 


8388 

05C6 " 





kj 774 

038ft 

10CB 


JMP 

ENTERD 

NOT FOUND, ENTER IT 

fci »’ .** 3 

838U 

0220 


AI 

I NPT, 6 

ADJUST POINTER 


838b 

0806 





8 i** 7 b 

8390 

0620 


DEC 

©SYMBQL+FLAGS+FLAGS DEF I NED? 


0392 

058C 





8 V* »•' 7 
8 r 78 
0 7 79 

8394 

1305 


JEQ 

SDF 

NO - SET DEFINITION VALUE 



•T* 

:+: 

MULTIPLY DEFINED SYMBOL 

ki ,• .-iki 



:+: 




0r ox 


020 H 


LI 

I OP ARM, MULDF 



0.59b 

0042- 





brOcC 

0.59ft 

0420 


BLWP 

0PRINTN 



039U 

066C •" 





U t CO- 

059b 


CHLP2 




8/84 

039b 

10BF 


JMP 

CHLP3 

CONTINUE 

8 r 03 

03H8 


SDF 




fc.i 786 

83ft8 

8420 


BLWP 

0GETSVL 

GET SYMBOL VALUE 


03H2 

05B0 - 





fci 78 7 

03ft4 

C168 


MOV 

0SYMBOL+SYMNM+SY 

MNM, SVPT POINT TO VALUE 


83Hb 

058E 





fci 788 

03ft 8 

Cl 1.5 


MOV 

+SVPT, LOCPT 

POINT TO REF CHAIN 

8789 

83ftft 

C543 


MOV 

NEWLOC, +SVPT 

CHANGE VALUE 

fci 79 0 

03ftC 

C160 


MOV 

0SYMBOL+SYMPTR+S 

VMPTR, SVPT POINT TO ENTRY 


03ftE 

0588 





0791 

0380 

04D5 


CLP 

•+SVPT 

CHANGE FLAG 

fci 792 

0382 

C104 


MOV 

LOCPT, LOCPT 

WAS ACTUAL REF USED? 

fci ,-'yi 

8384 

13F4 


•JEQ 

CHLP2 

NO - FINISH PROCESSING 

0 r 94 

83B6 

18 RE 


JMP 

LPDF 

PROCESS CHAIN SATISFACTION 

fci 795 



:+: 




fci 79b 



:+: 

GET CHECKSUM <7> 


*: J i .y j 
fci »’ 9 b 

fci 388 


•T* 

TAG? 
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0 t'33 

03 B 8 

0420 


BLWP 

0CUMCHK 

CHECK CUMULATIVE SUM 


038A 

04F2" 





yayw 



* 




880:1 




SKIP 

CHECKSUM <S> 


0802 



* 





U3BC 


TAGS 




£1804 

058U 

0220 


AI 

INPT, 4 

SKIP CUMSUM 


03BE 

0004 





080 b 

03C0 

10EE 


JMP 

CHLP2 

GET NEXT FIELD 

yyy 6 



* 




W80? 




GET RELOCATABLE LOAD 

ADDRESS <A> 




*: 




0009 

03C2 


TAG A 




0810 

03C2 

C182 


MOV 

BIAS, HLD 

SET RELOCATABLE OFFSET 

won 







08ic-: 




GET ABSOLUTE LOAD ADDRESS <9> 

08:1 3 







W814 

U3C4 


TAG9 




0815 

03C4 

069D 


BL 

*INCP 

TEST INSIDE MODUL AND CONVERT 

08:18 

03C6 

0:1 EC “ 


DATA 

NWLOC 

PLACE IN NWLOC 

i* 

03l.0 

H0C6 


A 

HLD, NEWLOC 

ADJUST WITH BIAS 

08X8 

038R 

C203 


MOV 

NEWLOC, PC 

SET LOCATION COUNTER 

0818 

03CC 

R20C 


R 

LDPT, PC 

ADJUST WITH ACTUAL LOAD POINT 

0820 

03CE 

1.0E7 


•JMP 

CHLP2 

CONTINUE 

wodi 







082k* 



* 

GET RELOCATABLE DATUM 

<c> 

08 2 3 







W824 

03D0 


TAGC 




082b 

03D0 

C182 


MOV 

BIAS, HLD 

SET RELOCATABLE OFFSET 

0 8 2 6 







0827 



:+: 

GET ABSOLUTE DATUM <B> 

0828 



:+: 




0829 

03D2 


T RGB 




0830 

03D2 

8888 


C 

PC, 0ENDST 

IS ADDR PAST SYMBOL TABLE? 


05D4 

059C **’ 





08.5 X 

03D6 

1468 


•THE 

LOADER 

YES - ERROR 

WttScZ 

051*8 

821h 


C 

+TDAT, PC 

IS OLD LIMIT ABOVE ADDRESS? 

08.55 

03 PH 

1401 


JHE 

SETLP 

YES - CONTINUE 

UO-i-H 

051»l: 

»J 7C8 


MOV 

PC, *TOAT 

CREATE NEW LIMIT 

083b 

03DE 


SETLP 




0836 

03DE 

C808 


MOV 

PC, 0LOADV2 

SET UP LOAD POINT 


03E8 

03E4 *' 





083 ? 

03E2 

069D 


BL 

* I NCP 

TEST INSIDE MODUL AND CONVERT 

0838 

03 E 4 

03E4 ** 

L0RDV2 

DATA 

$ 

PLACE IN PC 

08.58 

03b. 6 

RE06 


R 

HLD, +PC+ 

ADD IN OFFSET 

0840 

03E8 

10DR 


■JMP 

CHLP2 

GET NEXT TAG 

0OH-L 







0642 




GET LOAD BIAS <D> 


0843 



sfc 




0844 

03b. R 


TRQD 




084b 

03EH 

C38E 


MOV 

INS ID, INS ID 

INSIDE MODUL? 

0846 

03 EC 

1606 


JNE 

INER 

YES - ILLEGAL LD SEQUENCE 

084 7 

03EE 

06R0 


BL. 

eCONVRT 

GET CONVERTED VALUE 


03h 0 

0402 





0048 

03h 2 

01ER 


DATA 

BIASWD 

PLACE IN BIAS 

0849 

038 4 

10D4 


JMP 

CHLP2 

GET NEXT TAG 

08 b0 







08bl 



X 

TEST 

IF INSIDE MODUL 

PROCESSING 




1NCHK 


13 _si- b 


-Oriu 

<sr"r » K»r sj 

MODULE DISPATCHER 94 

4 

•*» jw® : tS9 : #o i ukumyj 

8926-9901 ** 

Dp£ 11, 19®^, 

1 / | I 
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ny.jiq. 

bo-jo 

U3F6 
U3+ « 

C38E 

1604 

* 

MOV 

JNE 

IN5ID, INSID 
CONVRT 

:i - : F 

INSID® HGDUL? f | 
VCS - CONVERT | I 

' * S f i; 


bCSO »** 




OUTSIDE MODULE 


4 ; 

, • | £ 
1 * | f 

f ^ 





INER 





by 6b 

bj:FR 

bjSPC 

020R 

2301 


LI 

I OPRRM, ilsq 

ILLEGAL LORD SEQUENCE ERROR 

bybl 

b..ih p 
b4bb 

b460 

b27R' 


B 

0ERR 


4 <; 


be; 6 ci* 



■+. 






ywbi 

UODH 



* 

CONVERT FIELD IN OBJECT 

CODE 



booci 

b*+b2 


CONVRT 






by 6 6 

0482 

b4b4 

C33B 

b410 '* 


MOV 

*11+, 0CONLOC 

MOVE 

IN CONVERSION 

LOCATION 


feJttfc. 0406 C800 
OHtJW 04Ufc ' 


MOV INPT, 0CONVL POINT TO BUFFER HRER 


0»t.a W4UR 0420 BLWP 0HEXBIN 

0400 0560" 

0869 040E 040E" CONVL DflTR * 

0s,-0 0410 0410" CONLOC DflTR ♦ 

087’! 0412 0220 fll INPT.. 4 

0414 0004 


0t 


0416 045B 


CONVERT TO BINflRV 

DRTR FOR CONVERSION 
PLRCE IN PROPER LOCATION 
ADJUST POINTER 


RT 


RETURN 
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33?o 



* 





33/3 



* LDR 

slf 

WORKSPACE AREA 



y?3 / / 

041.8 


*T» 

LDWP 





33/3 

8418 

0218' 


DATA 

LDBUF 

R0 

RD 

3333 

041H 

0000 

FSTIM 

DATA 

0 

R1 

FST 

kjbox 

04 xC 

0000 


DATA 

0 

R2 

PTR 

&8i=S2 

041b 

04Efl ' 


DATA 

NSMBL 

R3 

NSMBLP 

333 s 

3^dl3 

0000 


DATA 

8 

R4 

SYMB 

&©84 

WH-22 

0000 


DATA 

0 

R5 

TMP 

3330 

tf424 

0000 

LOCPTR 

DATA 

0 

R6 

LOC 

3333 

0426 

05C6 ' 


DATA 

SRCSYM 

R7 

SRSM 

333/ 

0428 

0050' 


DATA 

NAMMSG 

R8 

NMMSG 

boocs 


0000 


DATA 

0 

R9 


toooz? 

w42C* 

0000 


DATA 

0 

R10 

IQPARM 


042b 

8008 


DATA 

0 

Rll 

RTN 

330rJL 

04j>0 

056C ' 


DATA 

HEXBIN 

R12 

HEXP2 

&8S»2 

0432 

0000 


DATA 

0 

R13 

OLD WP 


0*t-j»4 

W333 


DATA 

0 

R14 

OLD PC 


04-1*8 

3333 


DATA 

0 

R15 

OLD ST 





1376 . 


IDT ENTRY 


‘TO 

9483 c 


x6 : S3 : 453 
-9901 ** 


iti'TURDRYji DEC 11, 1976. 


PRQE 8024 


0896 
way 7 


0^01 

K 1 jp fi , r ^ 

0904 

0906 

0907 

yyijja 

0309 
03X0 
03 XX 
031;-: 
03 X X 

0914 

03 ID 

0916 

031 7 
03X3 
03X3 

0320 

0321 

0322 

032 < 
0924 

0325 

0326 


COMPUTER 

ABSTRACT 


TITLE: LDR 

LOADER PROCESS OF IDT ENTRY 
REVISION: 05/O1/74 
ORIGINAL 
03/15/76 

MODIFIED TO RUN WITH PXRMTR 
COMPUTER: 990, ASSEMBLY 

ABSTRACT: AN IDT ENTRY IS CHECKED. IF THIS IS 

THE FIRST MODULE, THE NAME WILL BE PLACED 
IN THE SYMBOL TABLE AND CONTROL RETURNED 
TO THE CALLING ROUTINE FOR MODULE PROCESSING. 
IF THIS IS A LATER ENTRY WHOSE NAME IS NOT 
IN THE SYMBOL TABLE, IT WILL BE FLUSHED. 

IF ALREADY DEFINED, AN ERROR MESSAGE WILL 
BE PRINTED AND THE MODULE FLUSHED. IF ONLY 
REF-'D, MODULE WILL BE PROCESSED AS FIRST 
MODULE, AND THE NAME WILL BE MARKED AS DEF'D. 
NO VALUE IS GIVEN TO THE NAME SO IT MAY NOT 
BE USED TO SATISFY REFERENCES. THREE RETURNS 
ARE PROVIDED FOR ACCEPTABLE MODULES, MODULES 
FLUSHED BECAUSE OF ERROR, AND MODULES FLUSHED 
BECAUSE NOT REF'D. 

CALLING SEQUENCE: 

BLWP ®LDR 

NOT REF-'D MODULE FLUSHED - 1 WD INSTR 
ERROR - MODULE FLUSHED - 2 WD INSTR 
ACCEPTABLE MODULE - 1 WD INSTR 

STATISTICS: WORKSPACE = LDWP < UNSHARED > 

ROUTINES CALLED: 

B INHEX, ERROR, GETSVL, HEXBIN, F'RCRLF, PRIN'TN, 

READ, SRCSYM 


CALLING 


2 WD INSTR 
1 WD INSTR 


032 i*‘ 

04X8 


LDR 




0328 

0438 

0418- 


DATA 

LDWP 

WORKSPACE 

0323 

04 XH 

04 3C 


DATA 

LDBG 

START 

03.X0 

04 XU 


LDBQ 




03X1 

04 3C 

C080 


MOV 

RD, PTR 

POINT TO READ BUFFER 

0 3X2 

04X6 

0582 

a* 

INC 

FTP 

SKIP TAG 

0 3 X «':• 
03X4 

hj 37 „.l 

03X3 



♦T* 

CONVERT RELOCATABLE 

LENGTH 

04 4 M 

U802 

•T* 

MOV 

PTR, OF'TRPT 

POINT TO BUFFER 


0442 

0446 •- 





0 3X 7 

0444 

04 1C 


BLWP 

*HEXP2 

CONVERT LENGTH 

03X8 

0446 

0446 - 

PTRPT 

DATA 


POINTER TO MODUL LENGTH 

03X9 

0440 

046.2 *’ 


DATA 

NWBIAS 

CREATE NEW BIAS 

0940 

04 4 R 

0222 


AI 

PTR, 4 

ADJUST PAST LENGTH 


04 4C 

0004 





03 4 X 







0942 



•+: 

TEST FOR LOADABLE MODUL 

034 X 







0 3 4 4 

04 4 E 

C041 


MOV 

FST, FST 

FIRST TIME? 

0945 

0450 

1616 


JNE 

FIRST 

YES - PROCESS 

0340 

0452 

C4C2 


MOV 

PTR, +NSMBLP 


034 7 

0454 

0417 


BLWP 

+SRSM 

NO, SEARCH FOR NAME 

0948 

0456 

1008 


•IMP 

FLCL 

SYMBOL. NOT FOUND - PLUS 

0 9 4 9 

0458 

0620 


DEC 

QSVMBOL+FLAGS 

+FLAGS PREVIOUSLY DEFINED? 


04 5 H 

058C 





0330 

04 5 C 

lx ID 


JEQ 

MRKDF 

NO, MARK AS DEF 






PREVIOUSLY LOADED MODULE ERROR 


PXRLAL 


SDSMAC 94 

7075 +B 16 : 59 : 48 

SATURDAY, DEC 11, 1976. 

F'ROCES 

* 

•S I D I 

ENTE't 


948926-9901 ** 

PAGE 0025 

0354 

045E 

020R 

•+: 

H lOF'ARM, PRLM 

PREV LOAD MODULE ERROR 


0460 

2305 




j"J| i^| Cij C| 

0 4 6 2 

06R0 


BL ©ERROR 

CALL MONITOR ERROR PROCESSOR 


0454 

0270 •- 




0956 

0466 

05OE 


I NOT R14 

TAKE ERROR EXIT 

i#95 ,•• 



:+: 



0956 



:+: 

FLUSH MODULE 


0909 






0J?O0 

0 4 0 8 


FLOL 



096:1 

0468 

0080 


MOV RD, PTR 

POINT TO BUFFER AREA 

096 k! 

04 6 H 


LF'FL 



096 S 

046H 

0280 


MOV RD, I OPHRM 


0964 

0460 

0420 


BLWP ©READ 

READ A RECORD 


046E 

0622 •*' 




0965 

0470 

0249 


HMD I R9, EOF+IOERR 

EOF OR I/O ERROR? 


04 7k! 

6000 




0900 

04 74 

1603 


JNE FLRT 


096 7 

0476 

98:12 


CB *PTR, ©COLON 

FIRST CHAR = : 


04 73 

0009 "* 




0900 

04 7H 

16F7 


JNE LF'FL 

NO- CONTINUE 

0909 

04 70 


FORT 



«c»9 r 0 

04 { 0 

0380 


RTWP 

RETURN 

09 X 
09 « ' 

09 »' 

0 9 r* *4 

0*4 «*' 0 


:+: 

:+: 

FIRST 

PROCESS FIRST MODUL 


09 75 

04 7E 

040:1 


CLR FST 

CLEAR FIRST MODUL FLAG 

0976 

0480 

021-35 


LI TMP, 6 

IN IT COUNTER 


0482 

0006 




0977 

0484 

6820 


S ©TEN, ©ENDS! 

SET NEW END OF SVMBOL TABLE 


0486 

059R *'■ 





0438 

0590 ** 




0970 

048R 

0120 


MOV ©SVMTAB, SVMB 

POINT TO SVMBOL NAME LOCATION 


0480 

00RO " 




09 79 

048E 

0224 


HI SVMB, -7 



0490 

FFF9 




0900 

0492 


LP 



096:1 

0492 

DD32 


MOVE: *PTR+, +SVMB+ 

MOVE IN MODUL NAME 

0982 

0494 

0605 


DEC TMP 


090 Ji- 

0*490 

15b D 


JQT LP 


090’*+ 



:+• 



0900 



:+: 

PROCESS HCCEF' TABLE 

MODUL 

0900 



* 



090 »’’ 

0498 


MRKDF 



0900 

0*493 

0502 


I NOT PTR 

SKIP LAST TWO CHARACTERS 

0989 

04 9 R 

0120 


MOV ©SVMBOL+SVMPTR+SVMPTR, SVMB 


0490 

©588 " 




0990 

049E 

04 D 4 


CLR +SVMB 

MARK AS DEF 

099:1 

04H0 

0224 


AI SVMB, -7 

POINT TO NAME 


0*41-1^ 

m-i-9 




099k! 

04 R 4 

0205 


LI TMP, NAME 

MOVE NAME TO OUTPUT LINE 


04R6 

01156 •*' 




099 ,.s 

04H3 

CD 7 4 


MOV *SVMB+, +TMP+ 


0 9 9M* 

0*4 on 

CD «*’ 4 


MOV *SVMB+, *TMP+ 


H ,i .„.i 

0*400 

LU 74 


MOV *SVMB+, +TMP+ 


0 9 9 0 

04Mb. 

0420 


BLWP ©GETSVL 

POINT TO SVMBOL VALUE 


04B0 

05B0 y 




099 1"’' 

0432 

0120 


MOV ©SVMBOL+SVMNM+SVMNM, SVMB 


04B4 

058E **■ 





. auannu SHffro ▼o x6 : 59 : 48 

rrr.oi_.tsi. iUI ENTRY 948926-9981 ** 

« 



0406 

C586 

MOV 

LOC.- *SVMB 

0999 

04B8 

0420 

BLWP 

OB INHEX 


0401-1 

U55U 



1000 

0401; 

8424 

DATA 

L.OCPTR 

ILiLtl 


ouoe • 

DATA 

LOCVAL 


04C0 

06A0 

BL 

0PRCRLF 


0402 

0476' 



1003 

0404 

1000 

NOP 


1004 

0406 

C288 

MOV 

NMMSG.. IOPARM 

1005 

0408 

0428 

BLWP 

0PRINTN 


040ft 

066C '' 



1006 

8400 

022E 

RI 

R14. 6 


04CE 

0086 



100 

04D0 

0380 

RTWP 



SATURDAY. DEC 11. 1976. 

PRGE 8026 

MOVE IN LOC VALUE 
CONVERT LOC FOR PRINT 

LOCATION VRLUE 
PRINTING LOCATION 
PRINT CR/LF 

IGNORE ERROR RETURN 
PRINT MODULE NAME MESSAGE 


TAKE ALTERNATE RETURN 


RETURN 
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1010 

X011 


CHECKSUM CHECK WORKSPACE AREA 





CMWP 





iw*i4 

W'+Uct 

0b0C ■' 


DATA 

CKLOC 

R0 

CKL 

Xhl«XO 

04U4 

0000 


DATA 

0 

R1 

HVAL 

XWIO 

w4ub 

0418 


DATA 

LDBUF 

R2 

RDRL 

1UI r* 

W4u« 

0000 


DATA 

0 

R3 

CUMPT 


04DR 

01E6-* 


DATA 

DSWP+ I NPT + I NPT 

R4 

ENDOB 

xwiy 

04DU 

056C •'* 


DATA 

HEXBIN 

R5 

HEXP 


vxh-uc. 

0000 

RLVL 

DATA 

0 

R6 

RLRG 

Xfc^X. 

04h0 

0000 


DATA 

0 

R7 

CSUM 

Itldd 

04b^ 

0000 

NMBIAS 

DATA 

0 

R8 


Xh:?c-Ji- 

04E4 

0000 


DATA 

0 

R9 


XfcJcT.H- 


0000 


DATA 

0 

R10 

IOPARM 

X02b 

04E.8 

0008 


DATA 

0 

Rll 

RETURN 

XWcib 

04ER 

0000 

NSMBL 

DATA 

0 

R12 


IWi »*' 

W4C.L 

0000 


DATA 

0 

R13 

OLD WP 

x «•;.» ci o 

04fc.t 

0000 


DATA 

0 

R14 

OLD PC 

Ittcl.? 

ni*+r- 

0000 


DATA 

0 

R15 

OLD ST 
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LWS± 

1U 

±wss 

X0J5.4 

X0-SO 

X0J-6 

±ws «•* 
XWStt 

iw4w 

X0*+X 

X042 

X0H-J. 

ItlHH 


* TITLE: CUMCHK 

* CHECK CHECKSUM VALUE 

* REVISION: 05/01/74 

* ORIGINAL 

* 83/15/76 

* MODIFIED TO RUN WITH PXRMTR 

* COMPUTER: 990, ASSEMBLY 

* ABSTRACT: THE CHECKSUM IS COMPUTED AND COMPARED 

* TO THE VALUE PRESENT ON THE OBJECT 

* RECORD. IF ftN ERROR OCCURS, A MESSAGE 

* IS PRINTED AND KEYBOARD RESPONSE IS 

* REQUIRED BEFORE THE NEXT INPUT RECORD 

* MAY BE READ. 

* CALLING SEQUENCE: 


j. kj 4 •„.* 





BLWP ©CUMCHK 


XUHO 



: + : SI HI 

1 ST I C 

5: WORKSPACE = 

CMWP < UNSHARED > 

iuh- r 



* ROUTINES 

CALLED : 


j -w46 





ERROR, HEXBIN, KEVIN, OPEN 

XW49 

04F2 


CUMCHK 



1050 

04F2 

84D2 " 


DATA 

CMWP 

WORKSPACE 

ltiJX 

0414 

W4F6 •" 


DATA 

CMBG 

START 

1&52 



:+: 




jl .x;> 



:+c 

COMPUTE CHECKSUM 


XWJH’ 



:+: 





0416 


CMBG 




1056 

04F6 

04C7 


CLR 

CSUM 

CLEAR CHECKSUM 

105 r* 

0418 

C0C2 


MOV 

RDRL, CUMPT 

POINT TO START OF RECORD 

1058 

04FA 


CKCOM 




1059 

04FA 

@4C1 


CLR 

HVAL 

CLEAR VALUE 

X0b0 

041 C 

D@73 


MOVB 

+CUMPT+, HVAL 

GET ASCII CHARACTER 

iybi 

041 1 

@6C1 


SWPB 

HVAL 

RIGHT JUSTIFY 

iWO<£ 

0500 

A1C1 


A 

HVAL, CSUM 

ADD TO CHECKSUM 

X06.S 

0502 

8503 


C 

CUMPT, *ENDOB 

FINISHED RECORD AREA? 

X064 

0504 

UFA 


JLT 

CKCOM 

NO - CONTINUE 

1065 

0506 

@507 


NEG 

CSUM 

YES - NEGATE VALUE FOR CHECKS 

lut-b 







x0b r' 



* 

*4-* 

COMPARE TO VALUE ON 

RECORD 

X069 

0508 

C403 

♦T* 

MOV 

CUMPT, *CKL 

POINT TO VALUE ON RECORD 

10 70 

050A 

@415 


BLWP 

+HEXP 

CONVERT TO BINARY VALUE 

X0 r* 1 

050C 

05@C 

CKLOC 

DATA 

$ 

CONVERS I ON LOC AT I ON 

X0r* 2 

050E 

@4DE " 


DATA 

RLVL 

POSITION FOR RESULT 

X0 i* 3 

00X0 

81U6 


C 

RLRG, CSUM 

COMPARE THE TWO 

XU ( 4 

00X2 

13@D 


•JEQ 

OUTCK 

EQUAL - EXIT 

J. 0 1 -.J 
10 r*'6 



BAD CHECKSUM PROCESS 

OR 

..l. 0 r’ 







X0 1'* 6 

0514 

@2@A 


LI 

I OP ARM, CKSM 

BAD CHECKSUM ERROR 


0516 

23@6 





1079 

0518 

@6A@ 


BL 

©ERROR 

CALL MONITOR ERROR PROCESSOR 


051 A 

@464 





1080 

051C 

C282 


MOV 

RDRL, I.OPARM 

WAIT FOR RESPONSE 

X0W1 

05 IE 

@420 


BLWP 

©KEVIN 

FROM KEYBOARD 


0*XcX.0 

@62C ‘ 





X0.82 

0522 

C2A0 


MOV 

©CTLUNO, I OP ARM 

OPEN CASSETTE 

I..UOX 

0O«rX6 

00X»“L 

0420 


BLWP 

©OPEN 



0028 

060 C x 





.l.UO'i 

0 r::n 

020E 


LI 

14, TAGF 



VJ -,J *r». 

02x6* * 






I 
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4 


1089 



+ 



x«9W 



:* 

CON' VERS I ON ROUT I NE 

1091 



:* 



109k! 

0530 


CONVWS 



1091 

0530 

0000 

BINVL 

DATA 

0 

1094 

£1532 

0000 


DATA 

0 

109b 

0534 

0000 


DATA 

0 

1096 

0 b s 6 

0000 

SVCBLK 

DATA 

0 

iu. r-* r 

m ■„! i~i 

0000 

HSCVL 

DATA 

8 

1098 

05 1R 

0000 


DATA 

0 

XW99 

0D..JL* 

0000 

LIST 

DATA 

0 

1100 

0 b IE 

0C00 


DATA 

>C00 

XX0 1 

0548 

0D00 


DATA 

>D00 

IXUci 

0b41* 

0000 


DATA 

SVCflLT 

1101 

0544 

0536 "■ 


DATA 

SVCBLK 

1 1UH- 

0b46 

FFFC 


DATA 

-4 

xxmo 

0b48 

0000 


DATA 

0 

1108 

0b4H 

0000 


DATA 

0 

xx mi- 

mb 4C 

0000 


DATA 

0 

ll 08 

054 E 

0000 


DATA 

0 


SATURDAY, DEC 11, 1976. 
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WORKSPACE AREA 


R0 

BINVAL 

BINARY VALUE 

R1 

VALSV 

TEMP VALUE SAVE 

R2 

MADD 

LOCN HEX VALUE 

R3 

SCCODE 

SUPV CALL CODE 

R4 


ASCII VALUE 

R5 



R6 



R7 

BHCODE 

BINARY/HEX SCC 

R8 

HBCODE 

HEX/BINARY SCC 

R9 

SVCAL1 

PXRMTR SUPV CALL ROUT 

R10 


SUPV CALL BLOCK PTR 

Rll 

HCNT 


R12 

PCNT 


R13 


OLD WP 

R14 

CHOPC 

OLD PC 

R15 


OLD ST 



o 
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PRGE 0021 


111 0 
XI 11 
X 

xxx x 

1114 
UiD 
xx 16 

XXX i*’ 
1118 

ixitl 

J..XXX 

Hid 

iidi 

1124 

I. XxD 

112b 


TITLE: 

REVISION: 


COMPUTER : 
ABSTRACT : 


■r- i_.riLL 1 NU 


B I NHEX/HEXB I N 

CONVERS I ON ROUT I NES 

85/81/74 

ORIGINAL 

83/15/76 

MODIFIED TO USE PXRMTR CONVERSION ROUTINES 
990, ASSEMBLY 

SETS UP SUPERVISOR CALL BLOCK FOR CALL 
AND STORES VALUES AFTER RETURN IN USER 
DEFINED LOCATIONS. 

EQUENCE : 

BINARV TO HEX ASCII 
BLWP OB INHEX 
DATA ADDRESS-OF -VALUE 
DATA ADDRESS-FOR-PLACEMENT 

HEX ASCII TO BINARV 
BLWP 0HEXBIN 


xxw<8 



x. 


DATA ADDRESS 

-OF-VALUE 

XX XJ? 





DATA ADDRESS 

-FOR-PLACEMENT 

x xiu 



* ROUTINES C 

:ALLED: SVCALT < 

EXT REF IN PXRMTR > 

1131 



:+! 




XI 22 

0550 


B INHEX 




1X22 

8550 

0520" 


DATA 

CONVWS 

WORKSPACE 

1134 

0552 

0554 •" 


DRTR 

BIHEX 

STRRT 

1125 

0554 


BIHEX 




1X26 

0554 

C03E 


MOV 

+CHOPC+, BINVAL 

POINT TO ADDRESS OF VALUE 

1127 

0556 

C010 


MOV 

♦BINVAL, BINVAL 

GET VALUE IN R0 FOR CALL 

XX 28 

0558 

C0C7 


MOV 

BHCODE, SCCODE 

SET UP SUPV CALL CODE 

1X29 

©55R 

8419 


BLWP 

+SVCAL1 

BINARV TO HEX SUPV CALL 

1140 

055C 

C8BE 


MOV 

+CHOPC+, MADD 

GET PLACEMENT LOC 6 NEW RTN 

ixH-i 

0556 

0281 


LI 

VALSV, ASCVL 

SET UP ASCII VALUE POINTER 


0560 

0528 *** 





1 1. 4 2 

8562 

C38B 


MOV 

HCNT, PCNT 

I NIT COUNT TO 4 

ii^i 

8564 

DCB1 

BINH 

Move 

♦VAL5V+, *MADD+ 

MOVE VALUE TO PLACEMENT UUCP 

1144 

0566 

058C 


INC 

PCNT 


X145 

0568 

11FD 


JLT 

BINH 


xxs-6 

056H 

0380 


RTWP 



XX 4 i** 
XX *4* 8 

056C 


HEXBIN 




xX49 

05 6 U 

8530 


DATA 

CONVWS 

WORKSPACE 

X X .X£t 

VJ 5 6 6 

8570 x 


DATA 

HEXBI 

START 

XX.JX 

£10 0 


HEXBI 




XX 52 

0570 

C0BE 


MOV 

+CHOPC+, MADD 

GET ADDRESS OF VALUE 

XX 52 

0572 

C0C8 


MOV 

HBCODE, SCCODE 

SET UP SUPERVISOR CALL CODE 

1X54 

0574 

0201 


LI 

VALSV, ASCVL 

SET UP ASCII VALUE POINTER 


0O »•* 6 

8538 •" 





11 05 

05 1* ;, 8 

C30B 


MOV 

HCNT, PCNT 

I NIT COUNT TO 4 

X156 

05 7 R 

DC72 

HEXB 

MOVE! 

*MADD+, *VRLSV+ 

MOV HEX ASCII VALUE TO SCBLh 

1157 

0570 

058 C 


INC 

PCNT 

CONTINUE UNTIL ALL 

1158 

05 7 E 

11.FD 


JLT 

HEXB 

BYTES MOVED 

1X59 

0580 

8419 


BLWP 

+SVCAL1 

HEX TO BINARY SUPV CALL- 

XX 68 

8582 

C07E 


MOV 

*CHDPC+, VALSV 

GET ADDR FOR PLACEMENT LOCN 

1161 

0584 

C440 


MOV 

BINVAL, * VALSV 

MOVE BINARY VALUE TO LOCN 

1,162 

0586 

0388 


RTWP 


RETURN 
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:r.Yl'ib:UL IHBI...E ENTRY VALUES 948926-9981** 

4 


4 

1165 

0588 


SYMBOL 





1166 

0588 

0000 


DATA 

0 

WR8 

SYMPTR 

lib / 

058A 

0000 


DATA 

0 

WR1 

SVMNO 

XX68 

058 C 

0000 


DATA 

0 

WR2 

FLAGS 

no:? 

wbtst 

0000 


D8T 8 

0 

WR3 

SVMNM 

1170 

0598 

0000 


DATA 

8 

WR4 

NSYM 

1171 

0592 

8880 


DATA 

0 

WR5 

VALUE 

~t.X l i™. 

Li.J-7'4 

000/ 

K7 

DATA 

7 

WR6 

SEVEN 

1173 

8596 

008C " 


DATA 

SVMTflB 

UR? 

STPTR 

XX .**4 

0598 

0006 


DATA 

6 

WR8 

NWSCT 

.JL J- »' J 

ytjyh 

0008 

1 EN 

DATA 

10 

WR9 

TN 

XX 7 6 

059C 

0000 

ENDS! 

DATA 

0 

WR18 

NSBIT 

XX i*' »** 

059E 

0800 


DATA 

0 

WR11 

RETURN 

A-L/G 

WDHW 

0009 


DATA 

9 

WR12 

NINE 

xx /y 

0582 

0080 


DATA 

8 

WR13 

OLD WP 

XXcsisj 

0bri4 

0000 


DATA 

0 

WR14 

OLD PC 

1181 

0586 

0000 


DATA 

0 

WR15 

OLD ST 


1976. 
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H8i 



* TITLE: 

S ENTRV 

x*x84 



* 

SYMBOL TABLE ENTRV VALUES 

11 8b 



* REVISION: 

05/01/74 

xx 86 




ORIGINAL 

11.87 



* COMPUTER : 

990, ASSEMBLY 

1188 



* ABSTRACT : 

THREE ROUTINES ARE USED TO PROVIDE: 

1189 



*: 

1. SYMBOL FLAG VALUE 

1190 



:+: 

2. POINTER TO SYMBOL NAME 

xx9i 



:+: 

3. POINTER TO VALUE AND VALUE 

11.92 



* CALLING S 

EQUENCE : 

ll^i 



:+: 

BLWP ©GETSFL 

xx94 



:+: 

BLWP ©GETSVL 

1195 




BLWP ©GETSUM 

1196 



* STATISTIC 

5: WORKSPACE = SYMBOL < SHARED WITH SRCSVM> 

1197 




SYMBOL TABLE ENTRY APPEARS AS FOLLOWS: 

1198 




S Y 

1X99 



:+: 

M B 

1200 



:+: 

0 L 

1201 



:+: 

0, 1 

1202 




WHERE 0 = DEFINED, 1 = UNDEFINED 

1203 





1204 



: + : GET S 

r'MBOL FLAG 






1206 

05R8 


GETSFL 


120 7 

05R8 

0588" 

DATA 

SYMBOL WORKSPACE 

±<£08 

0b HH 

0 b RC "* 

DATA 

GTSFL START 

1209 

05 RC 


GTSFL 


1210 

05RC 

0090 

MOV 

♦SYMPTR, FLAGS GET FLAGS WORD 

1211 

05RE 

@380 

RTWP 

RETURN 

1212 



* 


1213 



* GET SYMBOL VALUE 

1214 





1215 

05B0 


GETSVL 


1.216 

0580 

0588 "' 

DATA 

SYMBOL WORKSPACE 

121 7 

0582 

0584"* 

DATA 

GTSVL START 

» j** §»••* X 

0DH4 


GTSVL 


1219 

0584 

0000 

MOV 

SYMPTR, SVMNM POINT TO START OF SYMBOL 

1220 

0586 

6000 

S 

NINE, SYMNM POINT TO VALUE 

cl i*L 

0588 

0153 

MOV 

*SVMNM, VALUE GET SYMBOL VALUE 

1222 

05 BR 

0380 

RTWP 

RETURN 

X c_ c.. ~> 

1 2 2 4 



* GET SYMBOL NAME 

X c.. cl 
1226 

0580 


GETSNM 


122 »** 

0580 

0588 "* 

DATA 

SYMBOL WORKSPACE 

1228 

05BE 

0500 " 

DATA 

GTSNM START 

1229 

0500 


GTSNM 


1.230 

0508 

0000 

MOV 

SYMPTR, SYMNM POINT TO SYMBOL ENTRY 

1231. 

0502 

6006 

s 

SEVEN, SVMNM POINT TO NR ME 

1.232 

0504 

0380 

RTWP 

RETURN 
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1235 



* TITLE: 

SRCSVM 


1236 




SEARCH SYMBOL TRBLE 

1237 



* REVISION: 

05/81/74 


1238 




ORIGINAL 


123*3 



:+: 

03/15/76 


1248 




MODIFIED TO RUN 

WITH PXRMTR 

1241 



:+: COMPUTER: 

998/ ASSEMBLY 


1242 



He RBSTRRCT : 

THE SYMBOL TRBLE 

IS SEARCHED FOR A 

1243 




GIVEN SYMBOL NAME. IF THE SYMBOL 

1244 




IS FOUND/ AN ALTERNATE EXIT IS 

1245 




TAKEN. THE TABLE 

IS SEARCHED LINEARLY. 

1246 



* CALLING SEQUENCE: 


1247 




BLWP 0SRCSYM 


1248 




SYMBOL— NOT— FOUND 

INSTRUCTION 

1249 




SYMBOL-FOUND INS 

TRUCT I ON 

1258 



* STATISTIC 

S: WORKSPACE = SYMBOL C SHARED WITH SENTRY.) 

1251 

05C6 


SRCSYM 



1252 

05C6 

0 5 8 8 ■’ 

DRTR 

SYMBOL 

WORKSPACE 

1253 

1254 

1255 

0508 

05CR 

DRTR 

SRC 

START 



•T* 

* POINT 

TO BEGINNING OF 

SYMBOL TABLE 

1256 

1257 

05CR 


SRC 



1258 

1259 

05 OR 

0817 

MOV 

+STPTR.. SVMPTR 

POINT TO SYMBOL TABLE 

1260 



* COMPARE TO ENTRY 


1261 






1262 

0500 


SVMOHK 



1263 

0500 

0128 

MOV 

0NSMBL.. NSYM 

POINT TO NEW SYMBOL 


05OE 

04ER- 




1264 

05D0 

8280 

0 

SVMPTR.. NSBIT 

PAST END OF TABLE? 

1265 

05D2 

1209 

JLE 

EXIT 

YES - EXIT 

12.66 

05D4 

0800 

MOV 

SYMPTR.. SYMNM 

POINT TO ENTRY 

126 r* 

05D6 

6006 

o 

SEVEN.. SYMNM 

POINT TO NAME 

1268 

05D8 

0048 

MOV 

NWSCT.. SVMNO 

GET COUNT 

1269 

05DR 


COMPRR 



1270 

05 DR 

9D33 

CB 

+SVMNM+.. +NSVM+ 

ARE CHARACTERS THE SAME 

1271 

05DC 

1605 

JNE 

NOTSRM 

NO - GET NEXT SYMBOL 

1272 

05DE 

0601 

DEC 

SYMNO 

ARE CHARACTERS FINISHED 

lei 1* .i*‘ 

85E0 

16 FO 

JNE 

COMPRR 

NO.. KEEP COMPARING 

1274 

05E2 

0090 

MOV 

★SYMPTR/ FLAGS 

YES - GET FOUND SYMBOL' 

1275 

05E4 

05OE 

INCT 

14 

TAKE ALTERNATE RETURN 

1276 

05E6 


EXIT 



1277 
1 2 1‘‘ 8 

85E6 

0380 

RTWP 

•x. 


RETURN 

1279 

1280 
1281 



•T* 

* LOOK 

AT NEXT SYMBOL 


05E8 


•T» 

NOTSRM 



1282 

05E8 

6009 

s 

TN.. SVMPTR 

POINT TO NEXT SYMBOL- 

1283 

05ER 

10F0 

JMP 

SVMCHK 

GET NEXT SYMBOL 
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1286 








1287 




WORKSPACE AREA 

FOR INPUT/OUTPUT ROUTINES 

1288 








1289 

1290 

05 EC 
05EC 

0900 

IOWKS 

DATA 

RDCOD 

R0 

RDCODP 

1291 

85EE 

0B00 


DATA 

WRCOD 

R1 

WRCODP 

1292 

05F0 


SCBLK 

BSS 

12 

R2-R7 

I/O SUPV CALL BLK <PRB> 

1293 

05FC 

0050 


DATA 

80 

R8 

LEN 

1294 

05FE 

0542“* 


DATA 

SVCALT 

R9 

SVCAL2 

1295 

0600 

05F0*“ 


DATA 

SCBLK 

R10 

POINTER TO SUPV CALL BLOCK 

1296 

0602 



BSS 

10 

R11-R.15 



ftKLML 

SO* 

•me 947075 

+-B 16 : 59 : 48 

SATURDAY, DEC 11, 1976. 

/O ROUTINE 

4 

■S 


94 

3926—9901 : + :: +- 

PAGE 00 

1.298 



:+: 

TITLE : 

OPEN 


1299 





ASSIGN ft DEVICE TO ft TASK 

1300 




REVISION: 

03/15/76 


1301. 





ORIGINAL 


1302 




COMPUTER : 

990, ASSEMBLY 

1303 




RBSTRftCT : 

SETS UP PRB AND MAKES SUPERVISOR 

1304 





CALL TO OPEN 

A DEVICE 

1305 




CftLLINQ SEQUENCE: 


1306 





R10 = LUNO 


130? 





BLWP ©OPEN 


1308 



H*: 

STATISTICS: WORKSPACE = 

IOWKS C SHARED WITH I/O R0UTINE5> 

1309 

060C 


OPEN 



1310 

068C 

05EC '** 


DftTft 

IOWKS, $+2 

TRANSFER VECTOR 


068E 

0610“ 





1311 

0610 

04C3 


CLR 

IOPLUN 

SET UP I/O OP 

1312 

0612 

04C2 


CLR 

IOC 

INIT CODE FOR I/O SUPV CALL 

1.313 

0614 

C30D 


MOV 

R13, R12 

GET CALLER'S WORKSPACE PTR 

1.31.4 

0616 

0220 


ftl 

R12, R10+R18 

INDEX TO CALL PARAMETER 


0618 

0014 





1315 

06:1ft 

03: 10 


MOV 

*R12, R12 

GET LUNO 

1316 

061C 

E0OO 


soc 

R12, IOPLUN 

OR LUNO INTO IOPLUN 

1.317 

061E 

0419 


BLWP 

♦SVCAL2 

MAKE SUPV CALL 

1.31.8 

0620 

0380 


RTWP 


RETURN 


PXRLRL 
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1320 




TITLE : 

READ 


1321 



:+: 


READ A RECORD 


.1 -!:• cl cl 




REVISION: 

03/15/76 


1323 





ORIGINAL 


1324 




COMPUTER : 

990, ASSEMBLY 


1325 




ABSTRACT : 

SETS UP PRB AND MAKES SUPV CALL 


1326 





TO READ A RECORD 


132? 



* 

CALLING S 

EQUENCE : 


1328 



s+: 


R10 = BUFFER ADDRESS 


1329 





BLWP OREAD 


1330 




RETURN PRRRMETERS : 


1331 





R10 = BUFFER RDDR+CHRR COUNT 


1332 





R9 = FLAGS 


1333 



*: 

STATISTIC: 

S: WORKSPACE = IOWKS < SHARED WITH I/O 

routines::- 

1334 

0622 


RERD 



1335 

0622 

05EC 


DRTR 

IOWKS, T+2 TRANSFER VECTOR 



0624 

0626 ' 





1336 

0626 

C0E0 


MOV 

OCT LUNG, IOPLUN STORE LUNO 



0628 

0012' 





1 S i** 

062ft 

1004 


JMP 

KEVRD 



r? SKL.HI, 

- 

SD 

SMHC 947075 

+ ; B 16 : 59 : 48 S 

ATURDAV, DEC 11, 1976. 

I/O ROUTINES 


94 

3926-9901 

PAGE 003 

1.339 




TITLE: 

KEVIN 


13:40 



* 


KEVBORRD INPUT 

ROUTINE 

1341 




REVISION: 

03/15/76 


1342 





ORIGINAL 


1343 




COMPUTER : 

990, ASSEMBLY 


1344 




RBSTRRCT : 

SETS UP PRB AND MAKES SUPV CALL 

1345 



*: 


TO INPUT R RECORD FROM KEYBOARD 

1346 




CRLLING SEQUENCE: 


1j> 4 r* 



:+s 


R10 » BUFFER ADDRESS 

1348 





BLWP ©KEVIN 


049 



* 

RETURN PRRRMETERS : 


050 





R10 = BUFFER ADDRESS+CHAR COUNT 

1351 





R9 = FLAGS 


1352 




STATISTICS: WORKSPACE = 

IOWKS < SHARED WITH I/O ROUTINES!) 

1353 

0620 


KEVIN 



1354 

062C 

05 EC *** 


DATA 

I U W K 5 .• 4£ + 2 

TRANSFER VECTOR 


062E 

0638 •*' 





1355 

0630 

C0E0 


MOV 

©KBLUNO, IOPLUN 

STORE LUNO 


0632 

000E 





1356 

0634 


KEVRD 



1357 

0634 

D0O0 


MOVE! 

RDCODP, IOPLUN 

STORE I/O OP 

1358 

0636 

O30D 


MOV 

El 3.- R12 

GET CALLER '$ WORKSPACE PTR 

1359 

0638 

0220 


AI 

R 12 , R 10 +R 10 

INDEX TO CALLING PARAMETERS 


063ft 

0014 





1360 

0630 

CISC 


MOV 

: + : R12, BUFADR 

SET UP BUFFER ADDRESS 

1361 

063E 

C1.88 


MOV 

LEN, BUFLEN 

SET UP BUFFER LENGTH 

1362 

0640 

04 c 4 


CLR 

FLGS 

I NIT FLAGS 

1363 

0642 

04C7 


CLR 

CHRCNT 

INIT CHAR CNT TO ZERO 

1364 

0644 

04C2 


CLR 

IOC 

INIT CODE FOR I/O SUPV CODE 

1.365 

0646 

8419 


BLWP 

+SVCAL2 

MAKE SUPV CALL 

1366 

0648 

R707 


ft 

CHRCNT, *R12 

I NCR BUFF PTR TO END OF DATA 

1367 

064ft 

064C 


DECT 

E12 


1368 

0640 

C704 


MOV 

FLOS.* : + : R*12 

MOVE FLAGS TO CALLING WS 

1369 

064E 

0243 


AND I 

IOPLUN, >00FF 

IS THIS KEYBOARD READ? 


0650 

00FF 





1370 

0652 

8803 


0 

IOPLUN, ©KBLUNO 



0654 

000E " 





1-5- r* 1 

0656 

1301 


JEQ 

KEVPLF 

IF READ, RETURN 

1 «’ 2 

0658 

0380 


RTWP 



1373 

065ft 


KE 

VPLF 



1374 

065ft 

C0E0 


MOV 

0PRLUNO, IOPLUN 

SETUP UP TO PRINT LF/CR 


0650 

0010'' 





1375 

065 E! 

D0C1 


MOVE! 

WRCODP, IOPLUN 


1376 

0660 

0205 


LI 

BUFADR, LFCR 



0662 

00(36 " 





1377 

0664 

04C4 


CLR 

FLGS 


1378 

0666 

100E 


•IMP 

F'RTKEV 



PRQE 0039 
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1380 



* TITLE: 

PR I NT/PR I NTN 


1381 




PRINT A RECORD 


1382 



* REVISION: 

03/15/76 


1383 




ORIGINAL 


1384 



* COMPUTER : 

990, ASSEMBLY 


1385 



* ABSTRACT : 

SETS UP PRB AND MAKES SUPV CALL 

1386 




TO PRINT A RECORD 

138? 



■¥ 

PRINT - PRINTS 

RECORD WITH CR 

1388 



+■ 

PR I NTN- PRINTS 

RECORD WITHOUT CR 

1389 



¥ CRLLINQ S 

EQUENCE : 


1390 




R10 = BUFFER ADDRESS 

1391 



+■ 

BLWP ©PRINT 


1392 



+■ 

OR 


1393 



¥ 

BLWP OPR I NTN 


1394 



* 



1395 



* STATISTIC 

5 : WORKSPACE = 

IOWKS <■ SHARED WITH I/O ROUTINES 

1396 

0668 


PRINT 



1397 

0668 

05EO 

DATA 

IOWKS, PRTCR 

TRANSFER VECTOR 


U66R 

0674 •• 




1398 

06 6 C 


PR I NT N 



1399 

06 6C 

05EC 

DATA 

IOWKS, PRTNCR 

TRANSFER VECTOR 


066E! 

0670 




1400 

0670 


PRTNCR 



1401 

0670 

0704 

SETO 

FLGS 

SET FLAG FOR PRINT WITHOUT 

1402 

0672 

1001 

•IMP 

PRENT 


1403 

0674 


PRTCR 



1404 

0674 

04C4 

CLR 

FLGS 

SET FLAG FOR PRINT WITH CR 

1405 

06 76 


PRENT 



1406 

06776 

C0E0 

MOV 

OPRLUNO, IOPLUN 

STORE LUNG 


0678 

0010 ' 




140? 

067R 


PRWRT 



1408 

067R 

D0C1 

MOVE: 

WRCODP, IOPLUN 

STORE I/O OP 

1409 

067C 

C30D 

MOV 

R13, R12 

GET CALLER'S WP 

1410 

067E 

022C 

AI 

R12, R10+R10 

INDEX TO CALLING PARAMETERS 


0680 

0014 




1411 

0682 

CISC 

MOV 

+R12, BUFADR 

SET UP BUFFER ADDR 

1412 

0684 


PRTKEV 



141.3 

0684 

06R0 

bl 

0QETCNT 

GET CHAR COUNT 


0686 

069C •" 




1414 

0688 

A1C4 

A 

FLGS, CHRCNT 

ADJUST CHRCNT FOR CR 

1415 

068R 

04C4 

CLR 

FLGS 

IN IT FLAGS 

1416 

868C 

04C2 

CLR 

IOC 

INIT CODE FOR I/O SUPV CALL 

1417 

068E 

0419 

BLWP 

+SVCAL2 

MAKE SUPV CALL 

141.8 

0698 

R707 

A 

CHRCNT, -+R12 

INCREMENT PRINT BUFF TO END 

1419 

0692 

C082 

MOV 

IOC, IOC 

CHECK RETURN STATUS 

1420 

0694 

1302 

JEQ 

PREXT 

ZERO, EXIT 

1421 

0696 

0460 

E: 

0ASK 

, ESC CNTL RETURN OR ERROR 


0698 

013C 




1422 

069R 


PREXT 



1423 

069R 

0.780 

RTWP 


RETURN 


V” ,- -t r*-. i riu„ 


DEC 11, 1976. 


PAGE 8040 


»u:>rric. 5»4r'Wi'0 16:59:48 SATURDAY, 

I/O ROUTINES 948926-9981 ** 

* TITLE: QETCNT 

* GET CHARACTER COUNT 

* REVISION: 03/15/76 

* ORIGINAL 

* COMPUTER : 990, ASSEMBLY 

* ABSTRACT: SCANS LINE COUNTING CHARACTERS UP TO 

* AND INCLUDING A CARRIAGE RETURN. 

* CALLING SEQUENCE: 

* R10 = BUFFER ADDRESS 

* BL 0GETCNT 

* RETURN PARAMETERS: 

* CHRCNT < R7 > = CHARACTER COUNT 

* STATISTICS: WORKSPACE = IOWKS 
QETCNT 

CLR CHRCNT I NIT CHAR COUNT 

GCLOOP 

INC CHRCNT I NCR CHAR COUNT 

CB *BUFADR+, OCR COMPARE CHAR TO CR 

JEQ GCEXT IF EQUAL, EXIT 

Cl CHRCNT, 80 MORE THAN 80 CHARS? 

•JLT GCLOOP NO, CONTINUE 

GCEXT 

S CHRCNT, BUFADR RESET BUFFER ADDR TO START 
ENDLAL B *RTN RETURN 

END 




r«KLAL 



DSHRC 94 

7875 *B 16 

59 : 48 

SATURDAY, DEC 11, 

1976. 



LftBEL 

4 


VALUE 

DEFN 

REFERENCES 

948926 

-9901 

** 



PAGE 0041 

£ 

R 

06B0 


0603 

0838 

0869 

0870 

8938 

1071 

1310 

1335 

1354 

R 




0633 

0651 

0667 

0680 

0695 

0701 

0708 

0752 

0817 





8819 

0839 

1062 

1366 

1414 

1418 




R I 




0567 

0616 

0642 

0644 

0687 

0723 

©730 

0766 

0775 





0804 

0871 

0940 

0979 

0991 

1006 

1314 

1359 

1410 

AND I 




0408 

0557 

0563 

0965 

1369 





ASCVL 

R 

8538 

1097 

1141 

1154 








RSK 

R 

813C 

0390 

0385 

0459 

0558 

0627 

1421 





B 




8573 

0611 

0627 

0861 

1421 

1448 




BRTCH 

R 

B17C 

0413 

8415 









BEQLRL 

D 

0000 

8179 

0047 









BHCODE 


0007 

0112 

1138 









B I RS 


0002 

8070 

0563 

0622 

0651 

0652 

0660 

0673 

0745 

0810 

0825 

BIRSWD 

R 

01ER 

0473 

0368 

0848 








BIHEX 

R 

0554 

1135 

1134 









BIHH 

R 

0564 

1143 

1145 









B INHEX 

R 

0550 

1132 

0450 

0758 

0999 







B I N'v'RL 


0000 

0108 

1136 

1137 

1137 

1161 






BINVL 

R 

8530 

1093 










BKOUT 

R 

02BE 

0649 

0588 









BL 




0349 

0354 

0363 

0392 

'0610 

0631 

0665 

0678 

0758 





0767 

8815 

0837 

0847 

0955 

1002 

1879 

1413 


BLANK 

R 

0008 

0188 

0634 









BLWP 




0336 

0353 

0362 

0380 

0382 

0396 

0399 

0412 

0414 





0425 

0431 

0434 

0441 

0450 

0453 

0455 

0457 

0556: 





0625 

0685 

0690 

0758 

0770 

0773 

0782 

0786 

0799 





0868 

0937 

0947 

0964 

0996 

0999 

1005 

1070 

1081 





1083 

1139 

1159 

1317 

1365 

1417 




BSS 




0250 

1292 

1296 







BUFRDR 


0005 

0141 

1360 

1376 

1411 

1442 

1447 





BUFLEN 


0006 

0142 

1361 









8 VIE 




0188 

0191 

0192 

0193 

0194 

0195 

0220 

0225 

0228 





0233 

0238 

0245 

0251 

0255 

0257 

0261 

0263 

0267 





0269 

0273 

0275 







C 




0423 

0733 

0830 

0832 

1063 

1073 

1264 

1.370 


CB 




0384 

0400 

0482 

0458 

0634 

0967 

1.270 

1442 


CHLP 

R 

0226 

8562 

0617 

0645 

0668 

0689 

0704 

0714 




CHLP2 

R 

039E 

8783 

0793 

0805 

0820 

0840 

0849 





CHLP3 

R 

03: IE. 

8713 

0734 

0784 








CHOPC 


000E 

0117 

1136 

1140 

1152 

1160 






CHRCNT 


0007 

0143 

1363 

13:66 

1414 

1418 

1439 

1441 

1444 

1447 


Cl 




0570 

0764 

1444 







CKCOM 

R 

04FR 

’1 058 

1064 









CKL 


0000 

0097 

1869 









CKLOC 

R 

050C 

1071 

1014 









cksm 


2306 

0174 

1078 









CKSVMB 

R 

0:1 86 

0422 

0444 









CLR 




0383 

0398 

0432 

0549 

0564 

0565 

0650 

0791 

0975 





0990 

1856 

1059 

1311. 

1312 

1362 

1363 

1364 

1377 





1404 

1415 

1416 

1439 






CMBG 

R 

04 F 6 

1055 

1051 









cmwp 

R 

04 D 2 

1013 

1050 









COLON 

R 

0009 

0191* 

0967 









COriPRR 

R 

85DR 

1269 

1273 









OONLOC 

R 

0410 

0878 

0866 









CON VI 

R 

040E. 

0869 

0867 









CONVRT 

R 

0402 

0865 

0631 

0847 

0855 







CONVWS 

R 

0530 

1092 

1133 

1149 








CR 

R 

0007 

0187 

1442 









f SUN 


0007 

0104 

1056 

1062 

1065 

1073 







r p;. l._. n L_ 


1976. 


SDSMAC 947075 *B 16:59:48 SATURDflV, 
REFERENCES 948926-9901 ** 


LABEL 

VALUE 

DEFN 

CTLUNO R 

0012 

0207 

CUMCHK R 

04F2 

1849 

CUMPT 

0003 

0100 

DATA 




DEC 

DECT 

DEF 


DEFL. R 

802A 

0219 

DEEM R 

0014 

0216 

DEFN R 

0822 

8217 

DLDBI 

88A8 

8212 

DLDPT 

8880 

82*11 

DSBG R 

0210 

0547 

DSPEXT R 

02C6 

8653 

DSPTCH R 

820C 

8544 

DSWP R 

01E6 

0470 

DSWP2 R 

0:1EC 

0474 

END R 

080 C 

0194 

ENDACT R 

8072 

8255 

ENDBUF E 


0298 

ENDLHL D 

06flE 

1448 

ENDLPR R 

038A 

0700 

ENDOB 

8004 

0101 

ENDPRO R 

8182 

8419 

ENDS! R 

0590 

1176 

ENT HDD R 

80R8 

0287 

ENTB P 

8100 

0448 

ENTERD R 

8322 

8728 

ENTERR R 

8328 

8718 

ENT MSG R 

8063 

8249 

ENTPT 

0004 

8057 

ENTVHL 

8885 

0858 

ENTVL R 

0088 

jT-f •"> O C; ' 

EOF 

2008 

0189 


ECU 


0404 

0409 

0411 

1082 

1336 

0799 





1057 

1060 

1063 

1069 


0180 

0181 

0185 

0205 

0206 

0243 

0244 

0282 

0283 

0284 

0291 

0292 

8293 

0294 

0295 

0340 

0451 

0452 

0471 

8472 

0478 

0479 

0480 

0481 

0482 

0487 

0488 

0489 

0490 

8545 

0581 

0582 

0583 

8584 

0585 

8590 

0591 

0592 

0593 

0594 

0599 

0600 

0601 

0602 

8632 

0760 

0816 

0838 

0848 

0869 

0882 

0883 

0884 

8885 

0886 

0891 

0892 

0893 

0894 

0928 

1001 

1014 

1015 

1016 

1017 

1022 

1023 

1024 

1825 

1026 

1051 

1071 

1072 

±893 

1894 

1099 

1100 

1101 

1102 

1103 

1108 

1133 

1134 

1149 

1150 

1170 

1171 

1172 

1173 

1174 

1179 

1180 

1181 

1207 

1208 

1252 

1253 

1290 

1291 

1293 

1354 

1397 

1399 



0372 

1367 

8426 

8692 

8776 

0949 

0047 

0048 

8849 



0768 

0769 
8761 
0366 
8357 
0546 
0626 
84:14 

0764 




0548 

1818 




0545 

0654 




0400 

8454 

1449 




0291 

0370 




0048 

8697 

1063 

0481 

0284 

8732 

0733 

0830 

0977 

0666 

0424 

8774 

0686 

0286 

0449 

8667 




8369 

0463 




8451 





8557 

8965 




0853 

0054 

0055 

0856 

0057 

8062 

8063 

0064 

8868 

0869 

0874 

0075 

0076 

8877 

0078 

0086 

0087 

0088 

0889 

0090 

0098 

0099 

0100 

01.01 

0102 

0110 

0111 

0112 

0113 

0114 


DEC 11, 


PAGE 0042 


0207 

0217 

0219 

0227 

0285 

0286 

0288 

0289 

0296 

0297 

0298 

0299 

0473 

0475 

0476 

0477 

0483 

0484 

0485 

0486 

0546 

0578 

0579 

0580 

0586 

0587 

0588 

0589 

0595 

0596 

0597 

0598 

0666 

0679 

0751 

0759 

0870 

0879 

0880 

0881 

0887 

0888 

0889 

0890 

0929 

0938 

0939 

1000 

1018 

1019 

1020 

1021 

1027 

1028 

1029 

1050 

1095 

1096 

1097 

1098 

1104 

1105 

1106 

1107 

1166 

1167 

1168 

1169 

1175 

1176 

1177 

1178 

1216 

1217 

1227 

1228 

1294 

1295 

1310 

1335 

0982 

1272 




0058 

0059 

0060 

0861 

0070 

0071 

0072 

0873 

8079 

€1080 

0084 

8085 

8091 

0092 

0093 

0097 

0103 

0104 

0108 

0109 

0115 

0116 

0117 

0121 


RXKLHL SDSMAC 947875 *B 16:59:48 SATURDAY* DEC 11* 1976. 

LABEL VALUE DEFN REFERENCES 948926-9901 ** PAGE 8843 






8122 

8123 

0124 





0131 

0132 

0136 





0143 

0144 

0145 





0155 

01.56 

0157 





0164 

0165 

0169 





0187 

0189 

0190 

ERR 

R 

027R 

0689 

0640 

0740 

0861 

ERROR 

E 


0045 

0610 

0955 

1079 

ESTPT 


0002 

0055 

0371 

0423 


EVEN 




0201 

0276 


EXIT 

R 

05E6 

1276 

1265 



F 

R 

888A 

8192 

0384 



FIRST 

R 

047E 

8974 

0945 



FLAGS 


0002 

0123 

0296 

0296 

0692 





1274 



FLCL 

R 

8468 

0968 

0948 



FLGS 


8084 

0140 

1362 

1368 

1377 

FLGVL 


000? 

0075 

0564 

8719 

0722 

FLRT 

R 

847C 

0969 

0966 



FST 


0801 

0085 

0944 

0944 

©975 

FSTIM 

R 

041 A 

0880 

8374 



FXRF 

R 

8312 

0705 

0693 



GCEXT 

R 

86AC 

1446 

1443 



GCL.OOP 

R 

069E 

1440 

1445 



QETCNT 

R 

0690 

1438 

1413 



GETHEX 

E 


0045 

0354 

0363 


GETSFL 

R 

05R8 

1206 

0425 



GETSNM 

R 

0580 

1226 

8434 



GETSVL 

R 

05B0 

1215 

0690 

0786 

0996 

GTSFL 

R 

05AC 

1209 

1208 



GTSNM 

R 

8500 

1229 

1228 



GTSVL 

R 

05B4 

1218 

121? 



HBCODE 


0008 

8113 

1153 



HCNT 


0008 

8115 

1142 

1155 


HEXB 

R 

057R 

1156 

1158 



HEXB I 

R 

0570 

1151 

1158 



HEXB IN 

R 

0560 

1148 

0868 

0891 

1019 

HEXP 


0005 

8182 

1070 



HEXP2 


0000 

8893 

0937 



HLD 


0006 

0074 

0565 

0660 

0667 





0745 

0752 

0810 

HVRL 


0001 

0098 

1059 

1060 

1061 

I DT 




0041 



1 LCD 


2302 

0170 

0608 



ILSQ 


2381 

0169 

0868 



INC 




0374 

0386 

0628 

INGHK 

R 

0 F 6 

0853 

04 8 pi 



I NCR 


0G0D 

0078 

0665 

8678 

0750 

I NCI 




0956 

0988 

1275 

INER 

R 

03FR 

0859 

0846 



I N I T 

E 


0045 




INPT 


0000 

0068 

0554 

0555 

0566 





0724 

0725 

0726 





0775 

0804 

0867 

I NS I P 


000E 

0079 

0549 

0623 

0623 

I DC 


0002 

0138 

1312 

1364 

1416 

I DEEP 


4000 

0190 

055? 

0965 


1 OP REM 


000R 

0063 

0352 

0361 

0379 





0435 

0437 

0438 





0608 

0639 

0739 


8125 

0126 

0127 

0128 

0129 

0130 

0137 

0138 

0139 

0140 

0141 

0142 

0146 

0150 

0151 

0152 

0153 

0154 

0158 

0159 

0160 

0161 

0162 

0163 

0170 

0171 

0172 

0173 

0174 

0186 

0199 

0200 

0211 

0212 

0603 



0692 

0776 

0776 

0949 0949 1210 

1401 

1404 

1414 

1415 


0673 

0688 

0696 0698 0709 0711 

0817 

1062 

0825 

0839 


0652 

8719 

0932 

1144 

1157 

1441 

0815 

0837 





0616 

0634 

8642 

0644 

0684 

0687 

0727 

0728 

0729 

0763 

0766 

0772 

0871 

±0:18 

1018 




0628 

0650 

8845 

0845 

0854 

0854 

1419 

1419 





0381 

0395 

039? 

0398 

0411 

0430 

0439 

0440 

0449 

0454 

0456 

0555 

0769 

0781 

8860 

0954 

0963 

1004 





T-fsr<x.nu 
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+=B 16 
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SATURDAY, DEC 11, 

1976. 



LABEL 

* 


VALUE 

DEFN 

REFERENCES 

948926 - 

9901 

** 



PAGE 0044 





1078 

1080 

1082 







IOPLUN 


0003 

009 

1311 

1316 

1336 

1355 

1357 

1369 

1370 

1374 

1375 





1406 

1408 








IOWKS 

R 

05EC 

12 «9 

1310 

1335 

1354 

1397 

1399 





JEQ 




0401 

0407 

0429 

0635 

0689 

0697 

0757 

0777 

0793 





0950 

1074 

1371 

1420 

1443 





JQT 




0571 

0983 








-THE 




0831 

0833 








JL 




0734 









•JLE 




0424 

1265 








JLT 




0427 

0568 

0693 

0765 

1064 

1145 

1158 

1445 


..JMP 




0355 

0356 

0364 

0365 

0415 

0444 

0617 

0626 

0629 





0640 

0645 

0668 

0686 

0699 

0704 

0714 

0740 

0774 





0784 

0794 

0805 

0820 

0840 

0849 

0948 

1283 

1337 





1378 

1482 








JMPTB 

R 

0244 

0577 

0570 

0572 








JMPTBE 

R 

0276 

0603 

0570 









JNE 




0385 

0403 

0459 

0558 

0624 

0712 

0846 

0855 

0945 





0966 

0968 

1271 

1273 






K 7 

R 

0594 

1172 

0404 









KBLUNQ 

R 

000E 

0205 

1355 

1370 



' 





KEVIN 

R 

0620 

053 

0382 

0399 

0457 

1081 






KEVPL.F 

R 

065B 

1373 

1371 









KEYRD 

R 

0634 

1356 

1337 









L..AER 


2304 

0172 

0739 









LHL 

R 

00C8 

0341 

0340 

0611 








LRLCSR 

D 

00BE 

0335 

0049 

0180 








L Ei MSG 

R 

0094 

0273 

0361 









LDADER 

R 

0348 

0738 

0831 









LDBG 

R 

04 3 C 

0930 

0929 









I...DBUF 

E 


0045 

0283 

0554 

0879 

1016 






LDPT 


000C 

0077 

0695 

0701 

0708 

0819 






LDR 

R 

0438 

0927 

0625 









LDWP 

R 

0418 

087ft 

0928 









L.EN 


0008 

0144 

1361 









I...F 

R 

0006 

0186 










LFCR 

R 

0006 

0185 

0186 

0187 

1376 







LI 




0344 

0346 

0352 

0357 

0361 

0366 

0370 

0375 

0379 





0395 

0430 

0436 

0440 

0454 

0554 

0608 

063-9 

0739 





0761 

0769 

0781 

0860 

0954 

0976 

0992 

1078 

1084 





1141 

1154 

1376 








LIST R 

0530 

1099 

0383 

0386 

0756 




LORD R 

0008 

0193 

0402 






LORDPT R 

0:1 FE 

0484 

0359 






L0ADV2 R 

03E4 

8838 

0836 






LOG 

0006 

0098 

0998 






LOCNUM R 

0060 

0250 

0452 






LOCPT 

0004 

0072 

0688 

0695 

0696 

0698 

0701 

0702 0708 0709 0710 




0711 

0788 

0792 

0792 



LOGPTR R 

0424 

0885 

0622 

1000 





LOeVRL R 

005E 

0244 

1001 






L.ODMSG R 

0045 

0237 

0395 






IP R 

0492 

0980 

0983 






L..PDF R 

0314 

0787 

0712 

0794 





1 PR. R 

046R 

0962 

0968 






L.PFXR R 

0300 

0694 

0699 






L PM S* 3 R 

0088 

0267 

0352 






L.STMSQ R 

007F 

0261 

0379 






! JaIRT 



0342 

0391 

0548 

0654 



MR DD 

0002 

0110 

11.40 

1143 

1152 

1156 
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SATURDAY* DEC 11.. 

1976. 



LABEL 

* 

VALUE 

DEEM 

REFERENCES 948926-9901 

** 



PAGE 0045 

MRI NMP R 

089E 

0281. 

8340 

0342 

0391. 







MOV 



0345 

0347 

0359 

0368 

0369 

0371 

0373 

0381 

0397 




0404 

0411 

0421 

0428 

0435 

0437 

0438 

0439 

0449 




0456 

0463 

0555 

0572 

0622 

0623 

0660 

0673 

0684 




0688 

0691 

0696 

0698 

0702 

0703 

0706 

0709 

0710 




0711 

0721 

0722 

0731 

0732 

0745 

0756 

0772 

0787 




0788 

0789 

0790 

0792 

0810 

0818 

0825 

0834 

0836 




0845 

0854 

0866 

0867 

0931 

0936 

0944 

0946 

0961 




0963 

0978 

0989 

0993 

0994 

0995 

0997 

0998 

1004 




1057 

1069 

1080 

1082 

1136 

1137 

1138 

1140 

1142 




1152 

1153 

1155 

1160 

1161 

1210 

1219 

1221 

1230 




1258 

1263 

1266 

1268 

1274 

1313 

1315 

1336 

1255 




1358 

1360 

1361 

1368 

1374 

1406 

1409 

1411 

1419 

MOVB 



0406 

0409 

0566 

0724 

0725 

0726 

0727 

0728 

0729 




0763 

0981 

1060 

1143 

1156 

1357 

1375 

1408 


MEKDF E 

0498 

0987 

0950 









MSEND 

2303 

8171 

0639 









MULDF R 

0042 

8232 

0781 









MVNM R 

0368 

0762 

0765 









NAME R 

0056 

0243 

0992 









NAMMSG R 

0050 

0242 

AAA 7* 




' 





NEQ 



1065 









NEWLOC 

0003 

0071 

0633 

0680 

0688 

0703 

0706 

0710 

0731 

0752 

0789 




0817 

0818 








N I NE 

000C 

0132 

1220 









NMMSG 

0008 

0092 

1004 









NOP 



0350 

0393 

0768 

1003 






NOTSfiM R 

05E8 

1281 

1271 









NSBIT 

000A 

0131 

1264 









NSMBL R 

04EA 

1026 

0684 

0772 

0882 

1263 






NSMBLP 

0003 

0087 

0946 









NSYM 

0004 

0125 

1263 

1270 








NWBIflS R 

04E2 

1022 

0633 

0651 

0939 







NWLOC R 

01. EC 

0475 

0632 

0679 

0751 

0759 

0816 





NWSCT 

0008 

0129 

1268 









NXSVM R 

01BH 

0442 

0427 









OPEN R 

060C 

1.309 

0412 

1083 








0 PNC AS R 

8174 

0410 

0407 









QUICK R 

052E 

1085 

1074 









PAGE 



0002 

0028 

0175 

0278 

0300 

0466 

0491 

0874 

0895 




1009 

1030 

1088 

1109 

1164 

1182 

1234 

±285 

1297 




1319 

1338 

1.379 

1424 






PC 

0008 

0076 

0818 

8819 

0830 

0832 

0834 

0836 

0839 



PC NT 

000C 

0116 

1.142 

1144 

1155 

1157 






PRCRL.F E 


0045 

0349 

0392 

0767 

1002 






PRENT R 

0676 

1485 

1402 









PREXT R 

069A 

1422 

1420 









PRINT R 

0668 

1396 

043:1 

0441 

0453 







PRINTN R 

066C 

1398 

0289 

0770 

0782 

1005 






PRLM 

2385 

0173 

0954 









PR LUNG R 

00:10 

0206 

1. s r* 4 

1406 








PRNTN 

0006 

0059 

0353 

0362 

0380 

0396 

0455 





PRNTOV R 

0382 

0771. 

0757 









PRTCR R 

0674 

1483 

1397 









PRTKEV R 

0684 

1412 

1 s i*’ 8 









PR T NCR R 

8670 

1480 

1399 









PRWRT R 

06 7 A 

1407 










PTR 

0002 

0086 

0931 

8932 

0936 

0940 

0946 

0961 

0967 

0981 

088 !-! 

PTRPT R 

0446 

0938 

0936 









PXRL.AL R 

Q0C4 

0339 

0336 










r-.",ru_.nL_ 


3D5MHC 947875 *B 16:59:48 SATURDAY, DEC 11, 1976. 


LABEL 

* 

VALUE 

DEFN 

REFERENCES 

948926 

R0 

0000 

0150 




R1 

0801 

0151 




R10 

000A 

0160 

0357 

0359 

0366 




1410 

1410 


Rll 

0000 

0161 




R12 

8800 

0162 

1313 

1314 

1315 




1367 

1368 

1409 

R13 

000D 

0163 

1313 

1358 

1409 

R14 

000E 

0164 

0956 

1006 


R15 

000F 

0165 




R2 

8002 

0152 




R3 

0003 

0153 




R4 

0004 

0154 




R5 

0005 

0155 




R6 

0006 

8156 




R7 

0007 

01.57 




R8 

0008 

01.58 




R9 

0809 

8159 

8344 

0345 

8346 

RD 

0000 

0084 

0931 

0961 

0963 

RDCOD 

0900 

0199 

1298 



RDCODP 

0000 

0136 

1357 



RDRBF 

0001 

0054 

0381 

0384 

0397 

RDRL 

0002 

0099 

1057 

1080 


READ R 

8622 

1334 

0556 

0964 


REF 



0045 

8046 

8298 

REQLE R 

0146 

0394 

0483 



RLRG 

0006 

0:103 

1073 



RLVL R 

04DE 

1020 

1072 



RQLB R 

00F8 

0368 

0364 



RQLP R 

00E2 

0351 

0355 



RT 



0337 

0872 


RTN 

0000 

8146 

1448 



RTWP 



0464 

0655 

0978 




1232 

1277 

1318 

s 



0443 

0977 

1220 

SCBLK R 

05F0 

1292 

1295 



SCCODE 

0003: 

0111 

1138 

1153 


SDF R 

0380 

8785 

0777 



SETLP R 

03OE 

0835 

0833 



SETO 



0420 

1.401 


SEVEN 

0006 

0127 

1231 

1267 


SFLAGS 

000C 

0064 

0426 



soc 



1316 



SPRNT R 

0180 

0433 

0429 



SPTR 

0007 

0060 

0370 

0371 

0372 

SRC R 

0508 

1257 

1253 



SRCSVM R 

0506 

1251 

0685 

8773 

0886 

SRL 



0569 



SRSM 

0007 

0091 

0947 



STLB R 

0108 

0367 

0365 



STLP R 

00F4 

!.\i 

in 

CO 

0356 



STPTR 

0007 

0128 

1258 



SVCAL1. 

0009 

0114 

1139 

1159 


SVCAL2 

0009 

0145 

13:17 

1365 

1417 

SVCAL.T E 


0045 

1102 

1294 


SVCBLK R 

0536 

1.096 

1103 



SVCSR E 


0046 

0346 



SVCWP E 


0046 

0344 



SVPT 

0005 

0073 

0691 

8702 

0783 




0726 

0727 

0728 


9901 ** PAGE 0046 


0368 

0369 

1314 

1314 

1359 

1359 

1315 

1316 

1358 

1359 

1360 

1366 

1418 

1411 

1418 





03:4? 8557 0965 


0400 8402 0405 0406 0456 0458 


1007 108.6 1146 1162 1211 1222 
1372 1423 

1231 1267 1.282 1.447 


0373 0421 


0706 0721 0722 0723 0724 8725 

0729 0730 0731 0732 0787 8788 




SDSMAC 94 

7875 *B 16 

: 59 : 48 

SATURDAY* DEC 11, 

1976 

LABEL 


VfttJJE 

DEFN 

REFERENCES 

948926 - 

9901 

** 







0789 

8790 

8791 





SWPB 




0405 

1061 






SVMB 


0884 

8088 

0978 

0979 

0981 

0989 

0998 

0991 

8993 





8997 

0998 






SYMBOL 

R 

8588 

1165 

8285 

8296 

0435 

0691 

8692 

0721 

0776 





0949 

0989 

0997 

1207 

1216 

1227 

1252 

SVMCHK 

R 

05CC 

1262 

1283 







SYMNM 


0803 

0124 

8435 

0435 

0691 

8691 

0787 

0787 

0997 





1228 

1221 

1230 

1231 

1266 

1267 

1270 

SVMNO 


0001 

0122 

1268 

1272 






SVMP 


8003 

0056 

0373 

0421 

0423 

0443 




SYMPTR 


0000 

0121 

0285 

0285 

0721 

0721 

0790 

0790 

0989 





1219 

1230 

1258 

1264 

1266 

1274 

1282 

SVMTAB 

R 

08RC 

0291 

8978 

1173 






TAG8 

R 

|T*i 'Z'* i~j 

8621 

0578 







TAQ8B 

R 

029E 

8638 

0624 







TAQ0C 

R 

02B4 

0641 

0635 







TRQ8CN 

R 

82B8 

0643 

0629 







TflGl 

R 

82CE 

8664 

0579 







TAGS- 

R 

02'CC 

8659 

0580 







TRG3 

R 

0208 

8672 

0581 







TRG4 

R 

820R 

8677 

0582 







TRG5 

R 

034E 

8744 

0583 







TRG6 

R 

0358 

8749 

8584 







'IRQ? 

R 

8388 

0798 

8585* 







1 Rijy 

R 

03BC 

0803 

0586 







TRG9 

R 

83C4 

0814 

0587 







TRGR 

R 

03C2 

8889 

8595 







TRGB 

R 

0302 

8829 

0596 







TRGC 

R 

0308 

8824 

0597 







TROD 

R 

03ER 

8844 

0598 







TRGE 

R 

0276 

0687 

0568 

0571 

0589 

0590 

0591 

8592 

0593 

TRGF 

R 

8216 

8553 

8600 

1084 






TAGGH 

R 

8282 

0615 

0601 

0602 






TORT 


000F 

0080 

8733 

0832 

0834 





TEMP 


0008 

8853 

8406 

0408 

8409 

0436 

0437 

0438 

0439 

TEN 

R 

059R 

1175 

0443 

0977 






TERM 

R 

0000 

8195 

8458 







TEXT 




8179 

0216 

8218 

0224 

0226 

8232 

8237 





0256 

0262 

8268 

0274 




TGFL..D 


0001 

0069 

0566 

0567 

0569 

0570 

0572 

8572 

8573 





0763 

0764 






TI.TL 




0001 

0027 

0277 

0465 

8873 

1008 

1087 





1284 







IMp 


0005 

8889 

0976 

0982 

8992 

0993 

0994 

0995 


TN 


0009 

0130 

1282 







TOP'D AT 

R 

00RE 

8292 

0487 







T'PPT 


0008 

8861 

0375 







UDS 

R 

8836 

8226 

0440 







IJDSN 

R 

003R 

0227 

0436 







UNDER 

R 

082F 

0224 

8438 







UNOPT 


0009 

0062 

8428 

0428 

8428 

0432 




USEPC 

E 


8045 

0463 







VALSV 


0001. 

0109 

1141 

1143 

1154 

1156 

1160 

1161 


VALUE 


0005 

8126 

1 c- 2 1 







WRCOD 


0B00 

0280 

1291 







MR COOP 


0001 

0137 

1375 

1408 







PAGE 804 


0994 0995 

0787 0790 


0997 1219 


0989 1210 


8594 8599 


0242 

0249 

0756 

0761 

1163 

1 2 S S 
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REVISIONS 
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NOTE :S0URCE AND OBJECT ON 
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SHEET 
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PAGE 0081 A 


FXREDT. MIR A 990 V2L1 

FXREDT - TEXT EDITOR 9499 

4 ' ' " 


12 : 13 : 11 
27 - 9901 *-* 




* 1 

M JRA990 V2L1 1 

2 : 12 : 11 258/76 PAGE 0002 

’ptrr-, r 

- TEXT EDITOR 94892 

7-9901** 

0002 

* TITLE. 

PXREDT 

0004 


TEXT EDITOR 

0005 

0000 

* REVISION: 

ORIGINAL 

000? 

* 

03/15/76 

0000 

* 

MODIFIED TO RUN WITH PX9MTR, THE PROTOTYPING 

H0 MS 

* 

SYSTEM AND 732RSR PROGRAM DEVELOPMENT SYSTEM 

owio 

* 

DEBUG MONITOR 

0011 

* 

06/28/76 

0012 

* 

MODIFIED FOR INCLUSION IN MONITOR 

0012 

* 

ALONG WITH THE TEXT EDITOR. 

0014 

* COMPUTER : 

990, 990 ASSEMBLY -MIRA ASSEMBLER USED 

00 lb 

* ABSTRACT: 

PXREDT IS AN INTERACTIVE PROGRAM FOR EDITING 

0016 

* 

SOURCE OR OBJECT CODE. THE USER MAY GENERATE 

0017 

*4: 

NEW TEXT DATA FROM THE KEYBOARD OR MAY READ 

0018 

4: 

IN EXISTING TEXT DATA FROM CASSETTE. THE 

0019 

* 

TEXT DATA, NEW OR EXISTING, IS READ INTO A 

0 000 

4: 

BUFFER AREA AND MAY BE EDITED BY ADDITIONS, 

0021 

4: 

DELETIONS, OR CORRECTIONS FROM THE KEYBOARD. 

0022 

4: 

THE EDITED DATA MAY THEN BE WRITTEN TO 

Hi/IV 2 

4: 

CASSETTE TAPE. 

0024 

0025 

* 

4: 

PROGRAM FUNCTIONS : 

0826 

4: 

1 > SET UP COMMANDS 

0027 

4 

2 > POINTER COMMANDS 

0028 

4: 

3) EDIT COMMANDS 

0829 

4: 

4> PRINT COMMANDS 

80.70 

4: 

5> OUTPUT COMMANDS 


PXREDT 
DATA AREA 


11 1 RA990 


V2L.1 

'4 4 |~i 


12 : 13 : 11 
>27-9901** 


*“*» Cr »“’i .**?/* 

i* fcr* 


PAGE 0083 


/> 


0023 : 

0034 

8035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

01045 

0046 

0847 

0048 

0049 

0050 

0051 

0052 

0053 

0054 


0064 

0065 

0066 


0000 


0000 

0002 

0004 


* TITLE: DATA AREA 

* REVISION: 

* ORIGINAL 

:+: 03/15/76 

* . MODIFIED TO RUN WITH PXRMTR 

■+■■ COMPUTER: 990, 999 ASSEMBLY 

* ABSTRACT: THE DATA AREA CONTAINS THE WORKSPACES, 

* BUFFERS, AND MISCELLANEOUS DATA FOR PXREDT 

* CALLING SEQUENCE: NON-CALLABLE 

IDT PXREDT"' 

RORG 


DX10 TASK INITIATION VALUES 


0006 1 
01 A6 • 
021 C • 


DATA MR I NRG 
DATA START 
DATA ESCRTN 


WORKSPACE 
ENTRY POINT 
END ACTION PC 


WORKSPACE AREA FOR MAIN DRIVER 
MR I NRG 


0055 

01006 

1040-' 

DATA 

INIT 

R0 

ENTRY 

0056 



REF 

ENDBUF 


DEFINE 

0057 

0008 

0000 

HI COR DATA 

ENDBUF 

R1 

TOPMEM 

0058 

000 A 

031?-' 

DATA 

MSG01 

R2 

ACTION 

0059 

000C 

03B0 "' 

DATA 

MSG12 

R3 

PROMPT 

0060 

000E 

0FEC " 

DATA 

PRINT 

R4 

PRT 

v 006:1 

001.0 

0FF0" 

DATA 

PRINTN 

R5 

F'RTN 

/ 0062 

0012 

0FA4"' 

DATA 

KEVIN 

R6 

KEY 

0863 

001.4 


E'55 

18 

R7- 

-R15 


MAIN DRIVER WORKSPACE EQUATES 


0067 


010001 

ENTRY 

EQU 

0 


0068 


00101 

TOPMEM 

EQU 

1 


0869 


0002 

ACTION 

EQU 

2 


0070 


00103 

PROMPT 

EQU 

3 


0071 


0004 

PRT 

EQU 

4 


0072 


0005 

PRTN 

EQU 

5 


0873 


0006 

KEY 

EQU 

6 


0074 



*: 




9075 

i „•! j ,♦* k,. 



* WORN 

.'SPACE AREA FOR 

COMMAND SUBROUTINES 

8077 

01026 

00R4 

-T* 

ROUTRG 

DATA 

PGEND+4 

R0 ADDR OF LINE AFTER DUMMY 

0078 

0028 



BSS 

6 

R1-R3 

0079 

0i 01 2 E 

0088 

VLNPTR 

DATA 

PGEND+8 

R4 VALUE FOR LINPTR 

0080 

0030 



BSS 

22 

R5-R15 

0081 

0046 



BSS 

6 

R13-R15 EXTENDED FOR BLWP IN 

0082 


002C 

R0UTR1 

EQU 

ROUTRG+6 


0884 



* COMMAND 

•X* 

WORKSPACE 

EQUATES 

0886 


0000 

DUMNXT 

EQU 

0 

LINE AFTER DUMMY 


PAGE 9004 


AKCL-' I 

ATA AREA 


HiKHS'S'0 V2L1 12:0:11 258/76 

9 48927 — 9901 : + : : + : 


0087 


0001 

UDCNT 

EQU 

1 

UP-DOWN COUNT 

0088 


00012 

LI NAD 

EQU 

2 

LINE ADDRESS 

0089 


001013 

FLINTS 

EQU 

"*• 

PRINT LIMITS 

©090 


00014 

LINPTR 

EQU 

4 

LINE POINTER 

089:1 


0006 

CLLOC 

EQU . 

6 

CURRENT LINE-NO LOCATION 

8092 


00107 

TMLOC 

EQU 

"7 

l 

TEMPORARY LOCATION 

0093 


010018 

CLINNO 

EQU 

8 

CURRENT LINE NUMBER 

0094 


01010101 

RTN 

EQU 

•11 

RETURN ADDRESS FOR BL 

0095 


0101018 

FCHAR 

EQU 

8 


0096 


0 8 0i D 

FGPOS 

EQU 

13 

FIND-TEXT GET POSITION 

0097 


00 01 E 

FPPOS 

EQU 

14 

FIND-TEXT PUT POSITION 

0098 


01 01 01 F 

NEWPTR 

EQU 

15 

LINE POINTER FOR NEW LINE 

0099 







0100 



* WORH 

SPACE AREA 

FOR INPUT/OUTPUT ROUTINES 

u.iyi 

0102 



IOWKS 




0:103 

01 0i 4 C 

0900 


DATA 

RDCOD 

R0 RDCODP 

0104 

004 E 

010001 


DATA 

WRCOD 

R1 WRCODP 

©1.05 

0050 


SCBLK 

BSS 

16 

R2-R9 I/O SUPV CALL BLK CPRB 

0106 

0060 

010501 


DATA 

80 

R10 LEN 

0107 

00i62 



BSS 

10 

R11-R15 

h‘J.LW O 

0109 



-+ : 

*= L- 

■0 WORKSPACE 

EQUATES 

0111 


0000 

•+* 

RDCODP 

EQU 

0 


01.12 


0001 

WRCODP 

EQU 

i 


0113 


0101012 

IOC 

EQU 

o 


0114 


0003 

I OPLUN 

EQU 

j. 


0115 


010104 

FLGS 

EQU 

4 


01.16 


010015 

BUFADR 

EQU 

5 


01:17 


0006 

BUFLEN 

EQU 

6 


01.18 


0101017 

CHRCNT 

EQU 

!** 


0:11.9 

L-t *i O i7i 


01010R 

L.EN 

EQU 

10 


0:12:1 



•T* 

* COMMON REGISTER 

EQUATES 

y c.: 

0123 


0000 

T- 

ft© 

EQU 

0 


0124 


010101 

R± 

EQU 

i 


8125 


0101012 

ft 2 

EQU 

2 


0126 


010103 

R3 

EQU 

“7 


0:127 


0004 

ft 4 

EQU 

4 


@1.28 


0005 

ft 5 

EQU 

5 


0129 


010106 

R6 

EQU 

6 


01.30 


0007 

ft 7 

EQU 

7 


0:13:1 


0008 

ft 8 

EQU 

o 


0132 


001019 

ft 9 

EQU 

9 


0:133 


010101ft 

RIO 

EQU 

10 


0134 


01 0108 

Rli 

EQU 

11 


0:135 


0101010: 

R12 

EQU 

12 


0:136 


0100D 

R13 

EQU 

13 


0137 


00101E 

R14 

EQU 

14 


8138 


00101 F 

R15 

EQU 

15 



I v l I RR.990 
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PXREDT 

DH ! H AREA 


V2L.1 12 : 13 : 11 

948927-9901** 


258/76 




0:140 





0 4 :i 



* COMMAND 

BUFFER 

8142 





0:1 43 

00 SC 

006E "■ 

CPBUFA DATA 

$+2 

0144 

086E 


CPBUP“ BSS . 

G“| 

Oe. 

0145 





8:140 



* PRINT BUFFER 

0147 





0148 

0 0 C 0 

00C2 

F'BUFA DATA 

$+2 

0149 

00C2 


PBUF BSS 

82 

0150 





0151 



* FLAGS 


01.52 





01.53 

0114 


EOFLQ BSS 

2 


01.54 * 

8155 * 


8156 

0116 


CHFLG 

BSS 

2 

0157 






0158 






0159 

0118 


EXTFLG 

BSS 

2 

016© 






0161 






0162 

011 A 


PL.FLG 

BSS 

ci 

0163 






01.64 






0165 

011C 


ABRLFG 

BSS 

«i. 

01 66 






0167 






8168 

01 IE 


LFFLG 

BSS 

cL 

0169 






0.1.70 



:+: 



0171 

0120 


PF LG 

BSS 

cl 

0172 

0122 


VFLG 

BSS 

2 

0173 

0124 


REF'FLG 

BSS 

2 

01.74 



* 



01.75 



* 



0176 

0.1.26 


NWL.F 

BSS 

2 

01.77 

0:128 

0000 

FFLG 

DATA 

0 

y :1 78 
0179 



•T- 

* DATA DEFINITION: 

0180 






0181 

012ft 


MAL.IN 

8 6 6 

2 

0182 

012C 


LAMOV 

BSS 

2! 

0183 

01 2 E 

0001 

MARGLM 

DATA 

1 .* r’ 2 


0130 

0048 




0184 

0132 


PMRGIN 

BSS 


8185 

0134 


LuMRG 

E»Sb 

21 

0186 

0136 


HIMRG 

BSS 

c. 

0187 

0138 


cc 

BSS 

2 

0188 

013 A 


NUMBF 

BSS 

tiii 

8189 

01 3 C 


NUMB 

B .8 8 

2 

01 90 

01.3E 


SL..ADDR 

BSS 


8191 

0140 


SQPLfiD 

BSS 

2 

0192 

01.42 


SQNLAD 

BSS 

2 


COMMAND BUFFER ADDRESS 
COMMAND BUFFER 


PRINT BUFFER ADDRESS 
PRINT BUFFER 


END OF FILE FLAG 

=0 IF NO EOF HAS BEEN ENCOUNTERE 
=1 IF EOF HAS BEEN ENCOUNTERED 
CHANGE FLAG 

=0 IF NOT EXECUTING CHANGE CMD 
=1 IF EXECUTING CHANGE COMMAND 
EXIT FLAG 

=0 IF QUIT HAS NOT BEEN EXECUTED 
SET TO 1 BY QUIT CMD 
PRINT LINE-NO FLAG 

=0 IF LINE NUMBERS ARE NOT TO BE 
=-l IF LINE NOS ARE TO BE PRINTE 
ABSOLUTE-REL AT I VE FLAG 
=0 IF ABSOLUTE OPERAND 
>0 IF RELATIVE 
LABEL-FIRST OCCURANCE FLAG 
=0 FOR FIRST OCCURANCE 
=-l FOR LABEL 
PRINT FLAG 
VERIFY FLAG 

STRING REPLACEMENT FLAG 
=0 FOR NO REPLACEMENT 
NOT =0 FOR NO REPLACEMENT 
NEW LINE FLAG- 
FIND FLAG 


MOVE AFTER LINE 

LINE AFTER LINES TO BE MOVED 

DEFAULT MARGIN LIMITS 

RIGHT MARGIN FOR PRINT 
LOW MARGIN FOR FIND 
HIGH MARGIN FOR FIND 
CHARACTER COUNT 

NUMBER FOUND FLAG FOR OPERAND EXTR 
OPERAND 

SQUEEZE-LINE ADDRESS 
SQUEEZE-PREVIOUS LINE ADDRESS 
SQUEEZE-NEXT LINE ADDRESS 


M I R A998 
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p RREDT 
DATA AREA 


V2L....1 12 : 13 : 11 

9 4 8 9 2 7 - 9 9 0 1 * * 


8234 


0133 

0144 


L INADD 

BSS 

2 

0:1. 94 

0146 


LINADR 

b* 5 5 

2 

0195 

0148 


PRELAD 

BSS 

2 

M l ;** 4 

814 A 


NXLAD 

BSS 

2 

0197 

914C 


FINLAD 

BSS . 

2 

0198 

01 4 E 


NXTLAD 

BSS 

2 

0199 

0150 


CURNO 

BSS 

d. 

0290 

8152 


PRLAD 

BSS 

2 

0201 

0154 


SAVRTN 

BSS 

2 

0202 

0156 


SLOC 

BSS 

2 

0203 

0158 


SLINPT 

BSS 

2 

02©4 

015A 


LML 

BSS 

2 

0205 

015C 


MARLIN 

BSS 

2 

0200 

015E 


PRVLIN 

BSS 

2 

0207 

0160 


SVPRM 

BSS 

2 

0208 

0162 


SAVMRG 

BSS 

2 

0209 

0164 


FSD 

BSS 

i£.« 

0210 

0166 


SRKNT 

pec 

!»«•« 

L.i c.. 

02:1.2 

01 6 A 


FKL..AD 

BSS 

2 

0212 

0.1.6C 


THLAD 

BSS 


0214 

01 SE 


SCFP 

BSS 

2 

8215 

0170 


STRCHR 

BSS 

2 

02:16 

0172 


FSDXT 

BSS 


82:17 

0174 


FSDX 

BSS 


02:18 

01. 76 


SSDX 

BSS 

2 

0219 

0:178 


MVRCNT 

BSS 

2 

0228 

01 7 A 

8000 

l'NLNNO 

DA 1 A 

>8000 

0221 

817C 

000ft 

TEN 

DATA 

10 

0222 

01.7E 

00ft 0 

ANCHOR 

DATA 

PQEND 

0223 

01.80 

00ft 4 

I NTLPT 

DATA 

PQEND+4 

0 2 2 4 

, 0182 

270F 

LLIMIT 

DATA 

9.999 

0225 

‘ 0184 

0ft 0D 

LFCR 

DATA 

>0ft0D 

0226 


0:184 

LF 

EQU 

LFCR 

0227 


0185 *'* 

CR 

EQU 

LFCR 4-1 

0228 

0186 

200 D 

SPCR 

DATA 

>20 0D 

0229 


0:186 

SP 

EQU 

SPCR 

0230 

8188 

0000 

PRTPOS 

DATA 

0 


aioH 
018C 
018E 
01.98 
0-1 97 


0007 
000 C 
001E 
0020 
0000 


TABS 


DATA 7, 12, 


LOCATION TO SAVE LINK REGISTER IN 


LINE NUMBER OF LAST LINE MOVED 
LINE NUMBER OF LAST SOURCE LINE BR 

LOCATIONS IN WHICH MARGINS 
ARE SAVED 

FIRST STRING DELIMETER 
STRING CHARACTER COUNT 
SECOND STRING DELIMETER 


LOCATION OF FIRST STRING DELIMETER 
LOCATION OF SECOND STRING DELEMETE 
MOVE RELATIVE COUNT 
LINE NUMBER FOR INSERTED LINES 
CONSTANT FOR NUMBER CONVERSION 
POINTS TO DUMMY LINE- 
INITIAL VALUE OF LINPTR 
LINE LIMIT 

LINE FEED/CARRIAGE RETURN 


SPACE/CARR I AGE RETURN 

CURRENT PRINT POSITION FOR TABS 
TAB SETTINGS BASED ON 0-59 


0007 

BELL. 

EQU 

>07 

BELL 

000ft 

LFE 

EQU 

> 0 ft 

LINE FEED 

000D 

CRE 

EQU 

>0D 

CARRIAGE RETURN 

2000 

EOF 

EQU 

>2000 

EOF STATUS 

4080 

IOERR 

EQU 

>4000 

I/O ERROR 

0194 30 

B I NASC 

BYTE 

>30 

CONSTANT FOR NO 

0195 59 

-T 

m 

io 

BYTE 

V - 


0:196 43 

CONT 

BYTE 

■“ C **’ 


0197 54 

TERM 

BYTE 

*T* 


0198 09 

TAB 

BYTE 

>09 



STATUS 


DATA AREA 


M I RA990 


.1 12 : 13 : 11 

9 4 8 9 2 7 - 99 8 1 * % 
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o 


0244 

8245 


"i nr 


iH 

51 




id 
0 

0252 
0252 - 
id 5 **■}* 

0 
0 
0 
0 
0 , 

0, 

0263 

0264 




PERIPHERAL DEVICE DEFAULT LOGICAL UNIT NUMBERS 


0246 

01 9 A 

0000 

KBLUNO 

DATA 0 

LOG- 

< keyboard.:* 


024 7 

019C 

0006 

PRLUNO 

DATA 6 

LOG 

printer::* 


0248 

619E 

0007 

C1LUNO 

DATA 7 

CS1 

CLEFT CASSETTE - 

I NPUT > 

0249 

01.A0 

0008 

C2LUN0 

DATA 8 

CS2 

< RIGHT CASSETTE 

- OUTPUT > 


NON I/O MONITOR 


81A2 8400 


:+: 

:+: 

:+: 

ENDPRG DATA >0400 
* MONITOR SUPV CALL CODE 


SUPV CALL BLOCKS 

END OF PROGRAM 
FOR I/O 


■56 

57 

01A4 

00 

* 

OPNCOD 

BYTE >08 

OPEN 

c r“j 

O 

01A5 

- 0D 

EOFCOD 

BYTE >0D 

END OF FILE 

:59 
:68 
:6 1 


0908 

0B00 

RDCOD 

WRCOD 

EQU >0900 
EWU 20B08 
EVEN 

READ ASCII 
WRITE ASCII 


:+: 


DEFINE SUPV CALL XOP 


PXREDT 
MAIN DRIVER 


M I RA990 V2L1 12 : 13 : 11 
9 4 8 9 2 7-99 0 1 + + 
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0268 

0269 

0270 

0 2 r‘ ci‘. 

0273 

8274 

8275 

0276 

0277 

0278 
0273 
0280 
0231 
0282 
0282 
0284 
0235 
0286 
0287 
0238 
0289 


TITLE: 


REVISION : 


COMPUTER : 
ABSTRACT : 


START / P X R E D T 
MAIN DRIVER- 

ORIGINAL 

03/15/76 

MODIFIED TO RUN WITH PXRMTR 
990.. 990 ASSEMBLV 

THIS IS THE MAIN DRIVER FOR PXREDT. 

THE FIRST TIME PXREDT IS EXECUTED AFTER 
BEING LOADED, START WILL BRANCH TO 
INITIALIZATION SECTION FOR HEADING AND 
MEMORV SIZE IN IT, IT WILL RETURN TO PXREDT 
UPON COMPLETION. 

SUBSEQUENT EXECUTIONS WILL FALL THROUGH 
TO PXREDT, THIS CONTAINS INITIALIZATION 
OF FLAGS, POINTERS, AND BUFFERS AND THE 
MAIN DRIVER LOOP WHICH READS THE 
COMMAND LINE AND BRANCHES TO THE 
APPROPR I ATE FUNCT I ON 
EDTCSR 


EDTCSR 

START 


0290 

01A6 

02E0 


LWP I 

MAI NRG 

IN IT WORKSPACE 


01 AS 

01006 •** 





M 2 .0 ± 

01 A A 

£i6R0i 


BL 

01 NIT 

INITIALIZE PROGRAM 


01AC 

1040 





0292 



PXREDT 




0293 

01 AE 

02E0 


LWP I 

MAI NRG 



01B0 

0006 •" 





0294 

01B2 

0300 


LI MI 

2 

I NIT STATUS 


01B4 

0002 





8295 

0.1 B b 

04 EO 


CLR 

QMAXLIN 

INITIALIZE FLAGS & VARIABLES 


01B8 

015C 





029b 

01 BR 

04E0 


CLR 

QEOFLG 

I NIT END OF FILE FLAG 


01BC 

0114-' 





02 9 7 

01BE 

@4E0 


CLR 

0EXTFLG 

I NIT FLAG FOR EXIT 


01C8 

01.18 





0298 

01 C2 

0720 


SETO 

0PLFL.G 

SET FLAG TO PRINT LINE #"S 


0.1C4 

Oil A"' 





0299 

01 C 6 

Ubk‘0 


MOV 

0 ANCHOR, QROUTRG+12 

SET INITIAL POINTER VALUES 


01 C8 

017E 






01 C A 

0022 





0300 

01.CC 

04E8 


CLR 

QROUTRG+16 

SET UP INITIAL LINNO. 


01 CE 

00136 **’ 





0301 

01D0 

C820 


MOV 

0 ANCHOR, eVLNPTR 

SET UP POINTER VALUES 


01 D2 

0:17E 






01.D4 

002E •“ 





0302 

01.D6 

028ft 


LI 

R10, 8 



01D8 

001018 





8202 

01 DA 

R80R 


A 

R10, 0VLNPTR 

INCREMENT PAST DUMMV LINE 


©1DC 

00 2E 





0384 

0:1 DE 

091ft 


SRL 

R10, 1 


0305 

01E0 

04 ER 

CL.RDUM 

CLR 

QPGEND < R10 > 

CLEAR DUMMV LINE 


Al E2 








M I RA990 
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P.HKEPT 
MAIN DRIVER 


t : ;1 _;|i 2 9 

0340 

8341 

i;’ ! . 4 2 


V2L1 12 : 13 : 11 
94y9;~ 7 — y 901 Hof: 


< to 


THIS ROUTINE DETERMINES WHICH COMMAND 
HRS BEEN SPECIFIED AND BRANCHES TO 
THE APPROPRIATE COMMAND SUBROUTINE 


8343 

0246 

0288 


LI 

R10, ENDLST-i 


0248 

000E 




0 '4 4 

024A 

982A 

CMPR 

CB 

0CMDLST <R10 


02 4C 

0280 





02 4 E 

006E •- 




0345 

0250 

1304 


JEQ 

SUCCES 

0346 

0252 

0608 


DEC 

R10 

0347 

0254 

18FA 


JOC 

CMPR 

0348 

0256 

0460 


B 

0OPERR 


0258 

03FE '■ 




0349 

0258 

8288 

SUCCES 

8 

R10, R10 

0358 

62 5 U 

C288 


MOV 

©ROUTADCRIO 


025E 

02B0 •" 




0351 

0260 

04 E0 


ULR 

®cc 


0262 

0138 




0352 

8264 

0580 


INC 

@cc 


0266 

0138 




035 3 

0268 

041 A 


BLWP 

: +:R10 

0354 

0268 

C320 


MOV 

0EXTFLG, R12 


026C 

0118 "■ 




0355 

026E 

13DB 


•JEQ 

COMMND 

0356 

02 76 

0420 


BLWP 

0ENDFIL 

0357 

02 72 
0274 

0F 64 •' 
06A0 


BL 

QMS GOUT 


0276 

02CE 




0358 

0278 

0014 


DATA 

20 

0359 



ENDACT 



0360 

0278 

U2W2 


MOV 

ACTION, R1.0 

0361 

027C 

0415 


BLWP 

♦PRTN 

0362 

02 7E 
0280 

0680 
02D8 **■ 


BL 

©GET ANS 

0363 

0282 

0288 


Cl 

R10, PBUF 


0284 

00C2 ■" 




©364 

0286 

13F9 


JEQ 

ENDACT 

0365 

0288 

9826 


CB 

©PBUF, ©TERM 


0288 

00 C 2 •" 





028 C 

6197 *“ 




63 66 

028E 

1306” 


JEQ 

EPEX IT 

0367 

0298 

9820 


CB 

©PBUF, ©CONT 


0292 

00C2 ’’ 





8 2 9 4 

0196 




0368 

0 2 9 6 

16F1 


JNE 

ENDACT 

0 3 6 9 

0298 

0460 


B 

©PXREDT 


0298 

01 8 E *“ 




0370 

029C 

2FE8 

EPEX I T 

XOP 

0ENDPRG, 15 


02 9 E 

0182*“ 





FOUND 

IS IT ILLEGAL? 
NO, NOT VET 
VES 


GET ADDRESS OF DESIRED ROUTNE 


SET CHARACTER COUNT TO ONE 

EXECUTE COMMAND 
WHS IT QUIT? 


QUIT — WRITE END OF FILE 

PRINT END EDIT MESSAGE 

TERM I NATE/CONT I NUE? MSG 

INPUT RESPONSE 

RNV RESPONSE? 

NO, ASK AG A I N 
TERMINATE? 


VES, EXIT 
CONTINUE? 


NO, ASK AGA I N 
NO, RESTART EDIT 


RETURN TO MONITOR 


H I RA998 
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MAIN DRIVER 

* 


V2L1 12 : 13 : 11 
9 4 8 9 27-9 9 01 * ■+■ 


76 









PJ r 

L'f i"‘ 4 



03 7 :;j 

02R8 

42 

037 6 

02A1 

43 

8377 

8 2ft 2 

44 

8378 

8 2ft 3 

45 

9379 

02 A 4 

46 

0380 

82ft 5 

49 

8381 

82ft 6 

48 

8382 

02ft7 

4C 

0383 

82 ft 8 

4D 

8384 

02ft9 

58 

0385 

82 ft ft 

51 

8386 

02 AB 

52 

8387 

82ftC 

53 

0388 

02AD 

54 

8389 

02 AE 

55 

8398 



8391 



8392 



8393 

02B0 

0648 

0 3 9 4 

02B2 

0b6E 

8395 

02 B 4 

0688 

8396 

02B6 

8794 

039 7 

02B8 

0798 

0398 

02BA 

8ft 7C 

8399 

02 BC 

880ft 

0480 

02BE 

8844 

0481 

02C0 

8888 

8402 

02C2 

0C38 

0483 

02 C 4 

0D4E 

0484 

02 C 6 

8E34 

8405 

02C8 

0E8E 

0486 

02CA 

8F4C 

0407" 

02 CC 

0i 6 C ft 




* LIST OF i: 

COMMANDS 



CMDLST BVTE 


BYTE 

c 

BVTE 

"D" 

BVTE 

-E-' 

BVTE 

-F- 

BVTE 

•" I - 

BVTE 

•K- 

BVTE 

-L-' 

BVTE 

M •" 

BVTE 

•-P-- 

BVTE 

•" Q 

BVTE 

•" R •" 

BVTE 


BVTE 

T " 

ENDLST BVTE 

"IT- 



* LIST OF 

COMMAND 

: + : 

ROUTAD DATA 

BTM 

DATA 

CHNG 

DATA 

DWN 

DATA 

EXT 

DATA 

FND 

DATA 

INSRT 

DATA 

KP 

DATA 

LMTS 

DATA 

MV 

DATA 

PRNT 

DATA 

QT 

DATA 

RMV 

DATA 

STP 

DATA 

TOP 

DAT A 

UP 


BOTTOM 

CHANGE 

DOWN 

EXIT 

FIND 

INSERT 

KEEP 

LIMITS 

MOVE 

PRINT 

QUIT 

REMOVE 

SETUP 

TOP 

UP 

ROUTINE ADDRESSES 

BOTTOM 

CHANGE 

DOWN 

EXIT 

FIND 

INSERT 

KEEP 

LIMITS 

MOVE 

PRINT 

QUIT 

REMOVE 

SETUP 

TOP 

UP 


PXREPT 

MESSAGE 

0410 

041:1 

0 8412 
0413 
0414 
0415 
0416 
0417 
04:18 
0419 
0428 
8421 
8422 
8423 
0424 
8425 
8426 
, 0427 

8428 
8429 
0 4 0 
043:1 
8432 
6433 
0434 
0435 
0436 
0437 

C . 8438 
0439 

8440 

844:1 

8442 

0443 

0444 

8445 

84 4 

0447 

8448 

0449 

0450 

0451 

0452 

0453 

8454 

0455 

8456 

0457 

0458 

0459 


MIRH9.90 V2L1 12:13:11 258/76 PAGE 8012 

OUTPUT ROUT I HE 948927-9901** 

* 


* TITLE: 

MSGOUT 


MESSAGE OUTPUT ROUTINE 

* REVISION: 

ORIGINAL 

:+: 

03/15/76 


MODIFIED TO RUN WITH PXRMTR 

* COMPUTER: 

998.* 990 ASSEMBLY 

* ABSTRACT: 

* 

PRINT MESSAGE SPECIFIED BY N 

N MESSAGE 

:+: 

0 SETUP INSTRUCTIONS 


2 TERM I NATE/CONT I NUE? 

:+: 

4 LINE NOT FOUND 


6 INVALID OPERATOR 


8 OFF THE TOP 


10 INVALID OPERAND 

* 

12 END OF FILE 


14 0000 FOUND 

:+: 

16 LAST LINE 


18 BUFFER FULL 


20 END EDIT 

.i. 

22 BUFFER EMPTY 

•T* 

* CALLING S 

SEQUENCE : 


BL ©MSGOUT 


DATA N 




MSGOUT 


02 GE 

C2BB 

MOV 

*RTN+, R10 

INDEX FOR MESSAGE TABLE 

02D0 

C2AA 

MOV 

ON COUNT < RIO 

>, R10 SET UP BUFFER ADDR FOR PRINT- 

02D2 

02E4 •" 




02D4 

0420 

BLWP 

©PRINT 

PRINT MSG 

02D6 

0FEC-" 




02D8 

045B 

B 

*RTN 

RETURN 


*T* 

ROUTINE 

THAT ACCEPTS 

ANSWERS UP TO A CR 



IN PRINT BUFFER 



* 


GETANS 


02DA 

C2A8 


MOV 

©F'BUFfl, R:10 

SET UP BUFFER ADDRESS 

02DC 

00C0 





82DE 

0420 


BLWP 

©KEVIN 

INPUT CHARS FROM KBD 

02E0 

0FA4 





02E2 

045B 


B 

*RTN 




•+: 

MESSAGE 

TABLE 




02 E 4 •" 

MCOUNT EQU 

$ 

02E4 

82 PC *“ 

DATA 

MSG00 

0 E 6 

0317 *" 

DATA 

MSG01 

02E8 

832C 

DATA 

MSG82 

02EA 

03 3C *’* 

DATA 

MSG 83 

02EC 

83 4 E **' 

DATA 

MSG04 

92EE 

035B x 

DATA 

MSG05 


PAGE ©013 


FXKEDT M I RA990 

MESSAGE OUTPUT ROUTINE 


*y 


0460 

02 F 0 

83 6 C 

8461 

02F2 

8379 

0462 

0 2 P 4 

8388 

0463 

02 F 6 

038B 

0464 

02F8 

8398 

©465 

02 FR 

03 R 2 

0466 



0 4 6 7 



0 4 6 y 



0469 

02FC 

8 fi 

0470 

02FD 

50 

04 r 4 

0315 

0A 


0316 

8 D 

0472 

0317 

54 

0473 

032R 

87 


032B 

0D 

0474 

032C 

4C 

0475 

033 R 

8 R 


03 3 B 

0D 

0476 

83 30 

49 

0 *4 l‘‘ 1 *' 

034 C 

8 fl 


03 4 D 

0D 

0478 

034E 

4F 

04 7 9 

0359 

0 R 


035 A 

0D 

0480 

035B 

4y 

0481 

036R 

8 R 


83 6 B 

0D 

0482 

036 C 

45 

8483 

0377 

8 fi 


8378 

0 D 

0484 

0379 

46 

0485 

037E 

0 fl 


03 7 F 

8 D 

0486 

8388 

4C 

0487 

8389 

8 fl 


838R 

0D 

0488 

038B 

42 

0489 

8396 

8 R 


8397 

8 D 

0490 

0398 

45 

049:1 

03R8 

8 fl 


03 R1 

0 D 

8492 

83 R 2 

42 

0493 

03 re: 

0 fi 


03RP 

0D 

0 4 9 4 

03B8 

28 

8495 

83B2 

87 


83B3 

8 D 

0496 

03B4 

28 

0497 

03B9 

8 D 

0498 

83 BA 

52 

0499 

03CA 

8 D 


* MESS 
MSG00 


MSG01 

MSG02 

MSG03 

MSG04 

MSG05 

MSG06 

MSG07 

MSG 08 

MSG 09 

MSG10 

MSGli. 

MSG12 

MSG13 

MSG14. 


l‘L.l 12 : 13 : 11 
9 4 8927—99 0 1 + ■+ 


DATA MSG06 
DATA MSG07 
DATA MSG08 
DATA MSG09 
DATA MSG10 
DATA MSGli 

SAGES 


258/76 


050 U 
0502 


BYTE LFE 

TEXT 'POSITION TAPES, ENTER CR' 
BYTE LFE, CRE 

TEXT •- TERM I NATE/CONT I NUE? " 

BYTE BELL, CRE 

TEXT 'LINE NOT FOUND' 

BYTE LFE, CRE 

TEXT 'INVALID OPERATOR' 

BYTE LFE, CRE 

TEXT 'OFF THE TOP' 

BYTE LFE, CRE 

TEXT 'INVALID OPERAND' 

BYTE LFE, CRE 

TEXT 'END OF FILE" 

BYTE LFE, CRE 

TEXT 'FOUND-' 

BYTE LFE, CRE 

TEXT 'LAST LINE" 

BYTE LFE, CRE 

TEXT -BUFFER FULL-' 

BYTE LFE, CRE 

TEXT 'END EDIT" 

BYTE LFE, CRE 

TEXT 'BUFFER EMPTY' 

BYTE LFE, CRE 

TEXT •' ?•' 

BYTE BELL, CRE 

TEXT •' V/N? " 

BYTE CRE 

TEXT •" RDV TAPE-TYPE CR" 

BYTE CRE 
EVEN 


: » f ~. I 


PRQE 0014 


n l Kristi 
WARNING MESSAGES 

4 


V2L1 12 : 13 : 11 
9 4 8 927-99 0 1 : + : * 


258/76 




0503 

i'M IA .-i 



* ROUTINES 

THAT PRINT 

WARNING MESSAGES 

0505 

03 CC 

06 H0 

T- 

LSTLIN 

BL. 

OMSGOUT 

•'LAST LINE” 


03CE 

02CE " 





05016* 

03D0 

001© 


DATA 

lfc» 


0587 

03D2 

0460 


B 

eCOMMND 



03D4 

8226" 





0508 

03D6 

C24B 

ATTOP 

MOV 

RTN, 9 


0509 

03D8 

06A0 


BL 

©MSGOUT 

-OFF THE TOP- - 


03DA 

02CE " 





05:10 

03DC 

8888 


DATA 

8 


05.11 

03DE 

0459 


B 



0512 

03E0 

061R0 

OPNERR 

BL 

OMSGOUT 

-INVALID OPERAND- 


03 El 2 

02CE 





05.13 

03E4 

000R 


DATA 

10 


©514 

03 E 6 

0460 


B 

©COMMND 



03E8 

8226 •" 





0515 

03EA 

06R0 

MEMF'TV 

BL 

0MSQOUT 

"BUFFER EMPTY - 


03EC 

02CE" 





0516 

03EE 

0016 


DATA 

22 


0517 

03F0 

0460 


E: 

0COMMND 



03F2 

0226 





0518 

0 3 F 4 

06R0 

NOTFND 

BL 

©MSGOUT 

-LINE NOT FOUND - 


03 F 6“ 

02 CE " 





0519 

83F8 

0004 


DATA 

4 


0520 

03 FR 

0460 


B 

©COMMND 



03FC 

0226 *" 





0521 

03FE 

06R0 

OPERR 

BL 

©MSGOUT 

- INVALID OPERATOR 


0400 

82CE •*' 





0522 

0402 

0006 


DATA 

6 


0523 

0404 

0460 


B 

0GETCOM 



0406*' 

0232 •" 






MIRA990 


258/76 
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PXREDT 

LINE SQUEEZER 

* 


V2L1 12 : 13 : 11 
948927-9901*+ 


0 5 ’»*' i“i 



* TITLE: 

SQUEEZ 


0527 



* REVISION: 

MEMORY COMPRE 

SS ROUTINE 

0529 




ORIGINAL 


0530 



* 

03/15/76 


0531 




MODIFIED TO RUN WITH PXRMTR 

0532 



+ COMPUTER : 

990, 990 ASSEMBLY 

0533 



* ABSTRACT : 

THIS ROUTINE 

IN EFFECT SQUEEZES OUT INACTIVE 

0534 




LINES FROM THE LINE BUFFER BY PLACING ALL 

0535 



:+: 

THE ACTIVE LINES AS ONE CONTIGUOUS BLOCK 

0536 



:+: 

IN MEMORY. 


0537 



* CALLING SEQUENCE: 


0538 




BL 0SQUEEZ 


0539 



* STATISTICS 



0540 



:+: 

LINPTR POINTS 

TO THE CELL FOLLOWING THE 

0541 



:+: 

LAST LINE IN 

MEMORY BEFORE COMPRESSION. 

0542 



:+: 

REGISTER 10 CONTAINS THE ADDRESS OF THE 

0543 




CELL FOLLOWING THE LAST LINE AFTER 

0544 




COMPRESSION AT LABEL SQ7. 

0545 

0408 

0714 

SQUEEZ SETO 

+LINPTR 

TERM BUFFER WITH -1 

8546 

040ft 

C1E0 

MOV 

eiNTLPT, TMLOC 

SET SQUEEZE 


040C 

0180 




0547 

040E 

0647 

DECT 

TMLOC 

SEARCH POINTERS 

0548 

0410 

05C7 

SQ1 INCT 

TMLOC 


0549 

0412 

0257 

MOV 

+ TMLOC, 9 

LOOK FOR INACTIVE BLOCK 

0550 

0414 

0289 

Cl 

9, >FFFF 

FOUND? 


0416 

FFFF 




055:1 

0418 

16FB 

JNE 

SQi 

NO 

0552 

041ft 

j“*' y |Z{ “?* 

MOV 

TMLOC, R10 

YES 

0553 

041 C 

8107 

SQ2 C 

TMLOC, LINPTR 

IS TO BE MOVED 

0554 

041E 

1450 

-THE 

SQ7 

NO MORE TO SQUEEZE 

0555 



SQ8 



0556 

0420 

0587 

INC 

TMLOC 


8557 

0422 

D257 

MOVE: 

+ TMLOC, 9 


8558 

0 4 2 4 

9809 

CB 

R9, @CR 

WITHIN ACTIVE BLOCK? 


8426 

0185-' 




0559 

0428 

16FB 

•JNE 

SQ8 

YES 

0560 

04 2R 

21E0 

COO 

0MARGLM, TMLOC 

WORD BOUNDARY? 


84 2 C 

01.2'E 




0561 

04 2 E 

1601 

JNE 

#+4 


0562 

0438 

0607 

DEC 

TMLOC IF NOT, MAKE IT ONE. 

0563 

0432 

Q5C7 

INCT 

TMLOC 


0564 

9434 

C257 

MOV 

+ TMLOC, 9 


8565 

0436 

0289 

Cl 

9, >FFFF 

ANOTHER INACTIVE BLOCK? 


0438 

FFFF 




0566 

043R 

13F0 

JEQ 

SQ2 


0567 

04 3 C 

C387 

SC! 4 MOV 

TMLOC, 12 

SAVE ADDR OF LINE TO BE SQUEEZED U 

0562 



* SAVE INFO NEEDED TO UPDATE NEXT-LINE PTR OF PREVIOUS 

0569 



* LINE AND 

PREVIOUS LINE 

POINTER OF FOLLOWING LINE 

8570 

04 S E 

8248 

c 

CLINNO, 9 

IS THE LINE AT THE POINTER BE I 

0571 

0440 

160.1 

JNE 

■$+4 


0572 

0442 

Cl 8ft 

MOV 

10, CLLOC 

YES, ADJUST FOR IT. 

0573 

0444 

808C 

c 

12, LI NAD 

IF LI NAD OR PR VL I N 

0574 

0 4 4 

1601 

JNE 

^4-4 

ARE POINTING TO 


PXREDT 

LINE SQUEEZER 


M I RA990 


I'Ll 12 : 13 : 11 
9 4 8 927-99 0 1 * * 


258/76 
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c 


c 


o 


0575 

0448 

C08A 


MOV 

10 , LI NAD 

0576 

04 4 A 

880C 


0 

12, ©PR VL I N 


044C 

015E - 




0 »** r 

0 4 4 E 

1608 


JNE 

SQ4A 

©578 

0458 

C80A 


MOV . 

10, ©PRVLIN 


0452 

015E 




8579 

0454 

C80A 


MOV 

10 , 0SLOC 


0456 

0156“ 




0580 

0458 

05E0 


INCT 

0SLOC 


04 5 A 

0156- 




0581 

045C 

05E0 


INCT 

©SLOG 


045E 

0156 *“ 




0582 

0460 

C24A 

SQ4A 

MOV 

10, 9 

0583 

0462 

C809 


MOV 

9, 0SLADDR 


0464 

013E- 




0584 

0466 

05C9 


INCT 

9 

0585 

0468 

C809 


MOV 

9, 0SQPLAD 


046A 

0140- 




0586 

046C 

05C9 


INCT 

9 

0587 

04 6 E 

0809 


MOV 

9, 0SQNLAD 


0470 

0142- 




0588 



SQ3 



05 p: 9 

0472 

0209 


LI 

9.* 2 


0474 

0002 




0590 

0476 

CEBC 

SQ3A 

MOV 

+ 12 +, + 10 + 

0591 

0478 

0689 


DEC 

9 

0592 

047 A 

:18FD 


J 00 

SQ3A 

0593 

047C 

D 6 BC 

SQ9 

MOVE 

+ 12 +, +10 

0594 

047E 

983 A 


CB 

+R10+, OCR 


0480 

0185 *“ 




0595 

0482 

16FC 


JNE 

SQ9 

0596 

0484 

0260 


MOV 

0SQPLAD, 9 


0486 

0140 x 




0597 

0488 

0259 


MOV 

+ 9 , 9 

0598 

04 8 A 

0229 


AI 

9.. 4 


048C 

0004 




0599 

048E 

0660 


MOV 

0SLADDR.. : + : 9 


0490 

01 3 E *“ 




0600 

0492 

0260 


MOV 

QSQNLAD.. 9 


0494 

0142*“ 




0601 

0496 

0259 


MOV 

9 .* 9 

0602 

0498 

1303 


JEQ 

SQ5 

0683 

049 A 

0509 


l'NCT 

9 

0604 

049C 

0660 


MOV 

0SLADDR, +9 


049E 

81 3 E *“ 




0605 



SQ5 



0686 



*SET 

SQUEEZI 

E ADDRESS Of 

060 / 

04 A 0 

22 A 0 


coc 

0MARGLM, 10 


04 A 2 

01 2 E *“ 




0608 

04 A 4 

1601 


JNE 

$+4 

M609 

0 4 A 6 

05 8 A 


INC 

10 

0610 

04A8 

2320 


coc 

©MflRGLM, 12 


84 A A 

012E * 




06:11 

04 AC 

1681 


JNE 

:$:+4 

0612 

04 A E 

0580 


INC 

12 


LINES ABOUT TO BE 
MOVED, CORRECT 

THEIR VALUES 


SAVE POINTERS TO CELLS 
WHICH WILL CONTAIN 

ADDRESSES OF CELLS TO 
BE UPDATED 


MOVE THE LINE 
UP TO 
NEW 

LOCATION 

STOP MOVING WHEN C/F 


UPDATE NEXT-LINE 
POINTER OF 


PREVIOUS 


LINE 

IS THERE A 

NEXT LINE? 

NO 

VES 

LINE POINTER 


i FOUND 


PAGE 0817 


FXREDT 

LINE SQUEEZER 


1-1 1 RA990 


.9 4 8 9 2 7 — 9 9 0 1 * * 


06:0 

04 B0 

C1CC 

MOV 

12, TMLOC 


8614 

04B2 

81 0C 

0 

12, LINPTR 

ALL SQUEEZED UP? 

0615 

04B4 

1405 

•JHE 

SQ7 

VES, PREPARE TO EXIT 

8616 

0486 

C257 

MOV 

♦TMLOC, 9 

NO 

0617 

0488 

04BFI 

0289 

pppp 

01 

9, >FFFF 

ANOTHER INACTIVE BLOCK 

0618 

04BC 

13RF 

.JEQ 

SQ2 

VES 

0619 

04BE 

10BE 

•IMP 

SQ4 

NO 

0620 

04C0 

C18R SQ7 

MOV 

10, LINPTR 

FIX LINPTR 

0621 

04C2 

0404 

C26.0 
0008 *’* 

MOV 

OH I COR, 9 


0622 

0406 

6244 


LINPTR, 9 


0623 

0408 

C38B 

MOV 

RTN, 12 


0624 

0400 

0400 

0289 

0050 

01 

9, 80 

ENOUGH SQUEEZED? 

0625 

84CE 

1B09 

•JH 

SQ7A 


0626 

04D0 

04D2 

06R0 
02CE ■' 

BL 

0 MSG OUT 


0627 

04D4 

0012 

DATA 

18 

BUFFER FULL 

0628 

04 DS 

i*'j , k 2 r*| i*“i 

C260 

MOV 

QFFLG, 9 

CALLED BV FIND? 

0629 

U 4 L* 

04Dfl 

1602 

•JNE 

$+6 

VES 

0670 

04DC 

rs..i r»LT 

0460 

B 

eCOMMND 

NO 

0631. 

PI L* LI. 

04E0 

0226 

05CC 

INCT 

12 


0632 

04E2 

0450 SQ7R 

B 

*12 
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FIND L 


0635 

0636 



0648 

064:1 

0642 

0643 

0644 

0645 

y 6 4 6 

0 647 

0648 

0649 

0650 

0651 
0653 


ri .i 

I ME ADDRESS 


V2L1 12! 
948927- 


13 : 11 
•9901 : + :; + : 


258/76 


* TITLE: FLIN 

* FIND LINE ADDRESS 
:+: REVISION: 

* ORIGINAL 

* COMPUTER; 990, ASSEMBLY 

* ABSTRACT: FINDS LINE ADDRESS OF LINE WHOSE NUMBER 

* IS IN NUMB. RESULTS RETURNED IN TMLOC. 

•+ : CALLING SEQUENCE: 




:+: 


©NUMB = LINE 

NUMBER 



:+: 


BL 0FLIN 


04E4 

C2A8 

FLIN 

MOV 

@ ANCHOR, 10 


0 4 E 6 

017E 





04E8 

C1CA 

FLIN1 

MOV 

10, TMLOC 


04EA 

C297 


MOV 

+TMLOC, 10 

LOOK AT LINE NUMBER 

0 4 E L 

8 88 A 


C 

10, 0NUMB 


©4 EE 

013C *'* 





04F0 

1306 


JEQ 

FDXT 

THIS IS IT 

04F2 

0227 


AI 

TMLOC, 4 

STEP POINTER AND 

04F4 

0004 





04F6 

C297 


MOV 

*TMLOC, 10 

LOOK AT NEXT LINE ADDR 

04 F 8 

16F7 


JNE 

FLIN1 

NOT LAST ITEM, LOOK SOME MORE 

04 FA 

0460 


B 

0NOTFND 

LAST ITEM 

04 F C 

03 F 4 *" 





04FE 

045B 

FDXT 

B 

*RTN 

GO BACK 


0654 


PXREDT MIRA990 

Lit i SlNuLE OPERAND 


PAGE ©019 



1 12 : 13 : 11 258/76 

948927-9901** 


ifj 5 



+•• TITLE: 

SKANOP, -'SKANTM 


06 58 



+ 

SCAN OPERANDS 


9659 



* REVISION 



0660 



+: 

OR I G I NftL 


066:1 



* COMPUTER 

: 998, ASSEMBLV 


0 669 



* ABSTRACT 

: PARSES SIMPLE 

OPERANDS WHICH CONSIST OF 

0663 



+: 

A NUMBER FOLLOWED BV A CARRIAGE RETURN 

0664 



+ : CALL I NG 

SEQUENCE : 


0665 




BL 0SKANOP 


0666 



+: 

BL. 0 SKANTM 


0667 

0508 

C24B 

SK'ANOP MOV 

RTN, 9 


86 6 8 

8502 

06fl0 

BL. 

QNUMEXT 



0504 

8526 ■“ 




0669 

0506 

C2R0 

MOV 

0NUMBF, 10 

NUMBER FOUND? 


0588 

0:13ft •" 




0670 

050R 

1605 

JNE 

NMEXIT 

VES 

0671 

050 C 

0280 

Cl 

12, >0D 

NO 


050E 

000D 




0672 

05:10 

1303 

JEQ 

EXTSK 

IF C/R, EXIT 

0673 

0512 

0460 

B 

©OPNERR 

IF NOT, ERROR 


0514 

03E0 •" 




Mb 74 

05:16 

0509 

NMEXIT INC 

T 9 

NUMBER FOUND EXIT 

96 '75 

0518 

0 4 5 y 

EXTSK B 

'■*■9 

DEFAULT EXIT 

0676 

051ft 

0108 

SKANTM MOV 

RTN, TMLOC 

SAVE RETURN 

0677 

85 1C 

0 6ft 0 

BL 

OSKANOP 



05:1 E 

0500 '■ 




0678 

0520 

0457 

B 

♦TMLOC 

C/R FOUND 

0679 

0522 

0460 

B 

0OPNERR 

NUMBER FOUND 


0524 

03E0 *" 
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PXREDT M I EPS'S© 

EXTRACT NUMBER 


V2L.1 1.2 : 13 : 11. 

9 4 8 9 27—99 0 1 : + ; : += 


o 


0682 

0683 

0684 
<:;1 6 w 8 
0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 
m 6 9 9 

0700 

0701 

0702 

0703: 

0704 




* TITLE: NUMEXT 

* NUMBER EXTRACT 

* REVISION: 

* ORIGINAL 

* COMPUTER : . 990, ASSEMBLY 

:+: ABSTRACT: EXTRACTS NUMBER FROM COMMAND INPUT 

* BUFFER AND CONVERTS IT TO BINARY 

* CALLING SEQUENCE: 

* BL ©NUMEXT 

* STATISTICS: UPON COMPLETION WORKSPACE REGISTER 12 
CONTAINS THE TERMINATING CHARACTER, 

UDCNT CONTAINS OPERAND, AND NUMBF CONTAINS 
NUMBER OF CHARACTERS. REGISTERS 9 AND 
TMLOC MUST BE KEPT SAFE. 


0526 

052 A 
052C 
052E 
0530 
0532 
0534 
0536 
0538 
05 3 A 
05 3 C 
053E 


04 Cl 

04E9 

013A •' 

C28B 

06A0 

0580 " 

028C 

0020 

13FB 

028C 

0030 

1110 

028C 


■¥ 

■¥ 

■¥ 

■¥ 

NUMEXT CLR 
CLR 

MOV 

GETCH BL 
Cl 


NCH 


JEQ 

Cl 

•JLT 

Cl 


UDCNT 

©NUMBF 

RTN, 10 
©GCHA 

12 , >20 

GETCH 

12 , 0 

NX IT 
12, "9"' 


0705 

0540 

8542 

0039 

150D 


JGT 

NX IT 

0706 

0544 

05E0 


I NOT 

©NUMBF 

0707 

0546 

0548 

01 3 A-' 
3860 


MPV 

©TEN, UDCNT 

8708 

054R 

0540 

017C-" 
024 C 


AND I 

12.. >0i00F 

0709 

054E 

0550 

000F 

R302 


ft 

LI NAD, 12 

0710 

0552 

0040 


MOV 

12, UDCNT 

07:1.1 

0554 

06 R0 


BL 

©GCHA 

0712: 

8556 

0558 

0580 "' 
10EF 


JMP 

NCH 

07:13 

055R 

06 R0 

GETCHl 

BL 

©GCHA 

0714 

0550 

055E 

0580 •" 
0280 

NX IT 

Cl 

12, >20 

07:15 

0560 

0562 

0020 

13FE: 


JEQ 

GETCHl 

0716 

0564 

0280 


Cl 

12, " Hi"' 

0717 

0566 

0568 

0030 

1105 


JLT 

OKXT 

07:18 

056R 

£1280 


Cl 

12, "9" 

07:1 9 

0560 
0 t. E 

0039 

1502 


JGT 

OKXT 

87' 2© 

0570 

01460 


B 

©OPNERR 

0721 

0572 
05 74 

03E0 

880:1 

OK XT 

C 

UDCNT, ©LLIMIT 


CLEAR NUMBER 

CLEAR NUMBER FOUND FLAG 

SAVE RETURN 

GET A CHAR FROM COMBUF 
IS IT A BLANK? 

IF YES, TRY AGAIN 

NOT NUMERIC 

NOT NUMERIC 
SET NUMBER FOUND 

CONVERT NUMBER 

GET RID OF LEADING ASCII BIT: 
TO BINARY 

GET NEXT CHAR 
GO PROCESS IT 

FIND NON-BLANK 

TERMINATOR 
DIGIT NOT VALID 

TERMINATOR 


LINE NUMBERS MUST 


PAGE 0021 


PXREDT 

b X i PACT 


A 7' O' 1 




M 1 Rft 

5*98 V2L1 1 

2 : 12 : 11 

NUMBE 

* 

:r 

94892 

7-9901*+: 

0576 

0578 

1202 

•JLE 

EXTEXT 

857ft 

0460 

B 

0OPNERR 

05?r: 

0":PA 



057E 

84 5 A 

EX TEXT B 

*10 

8580 

C320 

* EXTRACT 
GCHA MOV 

CHARACTER 
0CC, 12 

9582 

0138 • 



8584 

D32C 

movb 

eCPBUFCl; 

0586 

006E ■ 



0588 

05ft8 

INC 

@cc 

058ft 

01 £ 8 ‘ 



058 C 

098C 

SRL 

12.. 8 

05 8 E 

845B 

B 

*RTN 


cL D O «• i* t* 

NOT EXCEED 3999 

SETUP INDEX 
.• 12 GET CHARACTER 

INCREMENT INDEX 
POSITION CHAR FOR COMPARES 


c 


PX'REDT MIRA990 V2L.1 12:1.3:11. 258/76 PAGE 0022 

EXTRACT OPERANDS 948927-9901* * 

* 


0 r’. 



* TITLE: 

EXOP 

0 f‘ /;• ‘4 




EXTRACT OPERAND 

fm \ l 07' 3 5 



* REVISION: 


0736 




ORIGINAL 

0727 



* COMPUTER : 

998, ASSEMBLY 

0723 



* ABSTRACT : 

ROUTINE TO EXTRACT LINE NUMBERS FOR THOSE 

0729 



:+: 

COMMANDS WHICH EXPECT OPERANDS OF THE TYPES 

0740 




L-K < ABSOLUTE LINE NOS> 

0741 



:+: 

+N < RELATIVE TO POINTER) 

0742 




-N < RELATIVE TO POINTER) 

0743 



:+: 

N < SAME AS +N) 

0744 



:+: 

< POINTER LINE) 

9745 




ERROR EXIT TAKEN IF KCL, FIRST CHAR NOT 

0 746 



:+: 

NUMERIC, OR IF OPERAND SEPARATOR 

0747 



:+: 

NOT - OR CR. 

0748 



* CALLING S 

EQUENCE : 

8749 




BL 0EXOP 

, 0758 

0590 

C1.4B 

EXOP MOV 

RTN, 5 SAVE RETURN 

0751 

0592 

C1D8 

MOV 

•+-DUMNXT, TMLOC MEMORY EMPTY?. 

’’ ‘ 8752 

0594 

1602 

•JNE 

$+6 NO 

0752 

0596 

0460 

B 

0MEMPTY YES 


0593 

02 Eft *' 



0754 

059 ft 

04E0 

Cl_R 

0ABRLFG SET ABSOLUTE-RELATIVE FLAG T 


059C 

011G " 



0755 

059E 

06 ft 0 

BL 

0NUMEXT GET FIRST OEPRAND 


05R8 

3526 *’* 



0 f ? 56 

05R2 

C 2’ ft 

MOV 

0NUMBF, 18 NUMBER FOUND? 


05R4 

012ft x 



8757 

0 5 H 6 

1625 

JNE 

ABNMS YES 

07,58 

05ft 8 

028 C 

Cl 

12, >0D NO 


05ft ft 

000D 



0759 

05ftC 

122E 

JEQ 

CURF'TL IF C/R USE CURRENT POINTER VA 

0760 

35ft E 

028C 

Cl 

12, •" + •■ EXPECT RELATIVE NUMBER 


85B0 

002B 



0761 

05B2 

1205 

JEQ 

RELNUM IF FIRST CHAR IS + OR 

@‘762 

05B4 

028C 

Cl 

12, OTHERWISE, ERROR 


05B6 

002D 




0762 

05B8 

1282 

•JEQ 

RELNUM 


0764 

05Bft 

05BC 

0460 
03E0 •" 

B 

0OPNERR 


0 765 

05BE 

0920: 

RELNUM SRL 

12, 2 

CHANGE + - TO EVEN-0 

0766 

0500 

0240 

MOV 

12, 9 

AND SAVE 

8767 

0502 

0504 

06ft 0 
0526 

BL 

0NUMEXT 

GET NUMBER 

0763 

0506 

05L-3 

C2ft0 
01 3 A • 

MOV 

0NUMBF, 18 

* 

0769 

050 ft 

.1602 

JNE 

1+6 


0778 

0500 
05 CE 

046 O 
02 E0 •" 

B 

OOPNERR 


0771 

85D0 

05D2 

C801. 
01 1C 

NULREL MOV 

UDCNT, OABRLFG 

SET FLAG TO RELATIVE- 

S“i 'p ' ;/ 

8504 

1602 

JNE 

1+6 


1:1 7j:; 

0 5 0 6 
0508 

0460 
02E0 ’’ 

B 

OOPNERR 

ZERO NOT ALLOWED 



i-KKfcUT MIRA990 

BOTTOM COMMAND 


PAGE 0024 



2 : 13 : . 1.1 
:7-9901** 




0818 



* TITLE: 

BTM 


M !;“! ; j [. 9 



+: 

BOTTOM COMMAND 


0820 



+•• REVISION: 



0821 



+: 

ORIGINAL 


0822 



*■ COMPUTER :. 

990.* ftSSEMBLV 


0823: 



+= flBSTRfiCT : 

MOVES POINTER TO LAST ACTIVE LINE 

8824 



4 -: 

IN SOURCE LINE 

BUFFER 

8825 



+: CALLING SEQUENCE: 


0826 



+: 

BLWP ©BTM 


0827 

0640 

0026 

BTM DATA 

ROUTRG, $+2 



0642 

0644 ’ 




0828 

0844 

0600 

BL 

©SKANTM 

CHECK TERM CHAR 


0646 

051ft-' 




0829 

0 6 4 

C:1D0 

MOV 

*DUMNXT, TMLOC 

MEMORV EMPTV? 

0830 

064ft 

1602 

JNE 

#•+•6 

NO 

0831 

0640 

r."i tir j p 

0460 

B 

©MEMPTV 

VES 

0832 

kj o h* p 

0650 

It. ri 

0600 

BL 

©BOTTOM 

FIND BOTTOM LINE 


0652 

065 R 




8833 

0654 

0217 

MOV 

+TMLOC, CLINNO 

SET POINTERS 

0834 

0 6 5 8 

0187 

MOV 

TMLOC, CLLOC 


0835 

0658 

0380 

RTWP 



0836 



+: 



0837 

ri*i o ’7* o 



* ROUTINE 

THAT FINDS BOTTO 

M LINE 

Kl O «*•% 

0839 

06 5 R 

0200 i 

+• 

BOTTOM MOV 

0 ANCHOR, 10 

GET ADDR OF FIRST LINE 


0650 

017E-* 




0840 

06 5 E 

022ft 1 

BTM1 fll 

10, 4 

POINTS TO LOC THAT CONTAINS ADDR 


0660 

0004 




084:1 

0662 

010ft 

MOV 

10, TMLOC SAVE 

IT 

0842 

0 6 6 4 

029ft 

MOV 

*10, 10 HA 

S NEXT LINE BEEN BROUGHT IN? 

0843 

0666 

16FB 

JNE 

BTM1 

VES MOVE DOWN ANOTHER ONE 

0844 

0 6 6 8 

0227 

fil 

TMLOC, -4 

SET POINTER TO BEGINNING OF LINE 


0 8 8 ft 

F> h U 




0845 

0660 

045B 

B 

*RTN 

RETURN 


PXREDT MIRR990 V2L1 12:13:11 258/1 

CHANGE COMMAND 948927-9901*+ 



W848 



* TITLE: CHNG 

0 H 4 y 



* CHANGE COMMAND 

0850 



* REVISION: 

0851 



* ORIGINAL 

WW52 



* COMPUTER: 990, ASSEMBLY 

0853 



* ABSTRACT: CHANGES SOURCE 

8854 



* AND INSERT 

8855 



* CALLING SEQUENCE: 

0 W 5 A 



: + : 8 L W P @ C H N G 

0857 

0 A A E\ 

0026 

CHNG DATA ROIJTRG, t+2 


0670 

0672 ■" 


0858 

0672 

0580 

INC 0CHFLG 


06 7" 4 

0116 


0859 

0676 

8680 

BL 0RMVCH 


©678 

0E38 '* 


0860 

067ft 

8680 

BL 9INSCH 


06 7 C 

0880 y 


086::!.. 

067E 

0380 

RTWP 


? 6 PAGE 8025 


LINES VIA REMOVE 

SET CHANGE FLAG 
DO REMOVES 
DO INSRTS 


M I RA990 


PfiGE 0026 


PXREDT 

DOWN COMMAND 


V2L1 12 : 13 : 11 
9 4 8927-9 9 0 1 * * 


0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 


TITLE: DUN 

DOWN COMMAND 

REVISION : 

OR I G I NfiL 

COMPUTER : . 990, ASSEMBLY 

ABSTRACT: MOVES POINTER DOWN NUMBER OF LINES 
SPECIFIED IN COMMAND TO MOVE PAST 
LAST LINE, REQUIRED NUMBER OF SOURCE 
LINES ARE BROUGHT IN 
CALLING SEQUENCE: 

BLWP QDWN 


0875 

0680 

0026“ ■'* 

DWN 

DATA 

ROUTRG, 1+2 



0682 

0684 ' 





0876 

0684 

0 6 ft 0 


BL 

0UDCOM1 

DETERMINE COUNT 


0686 

06BC •'* 





0877 

0688 

C286 


MOV 

CL.LOC, 10 

SET UP SEARCH 

0878 

068ft 

022ft 

DWN1 

AI 

10, 4 

POINTERS 


068 C 

0004 





0879 

068E 

C.1CA 


MOV 

10, TMLOC 


0880 

0690 

C297 


MOV 

+TMLGC, 10 


0881. 

0692 

0601 


DEC 

UDCNT 

FINISHED? 

0882 

0694 

1509 


JGT 

DWN2 

NO MOVE DOWN ONE MORE 

yyy „< 

0696 

C28fl 


MOV 

10, 10 

IS NEXT LINE IN? 

0884 

0698 

160A 


•JNE 

DWN4 


0885 

069ft 

0581 

DWN3 

I NC 

UDCNT 

NO 

0 8 y 0 

0 6 .9 L- 

ft 060 


ft 

0MAXLIN, UDCNT 

LINES TO BRING IN 


06 9 E 

01.50 •** 





0887 

06ft 0 

06ft 0 


BL 

0 1 NSOU 

BRING THEM IN 


06ft 2 

0708 





l> 0888 

66A4 

1007 


•JMP 

EOFEXT 

END OF FILE EXIT 

0889 

06 ft 6 

1009 


JMP 

EXIT 


0890 

06 ft 8 

C28A 

DWN2 

MOV 

10, 10 


0891 

<06 ft ft 

13F7 


•JEQ 

DWN3 


8892 

06ftC 

10EE 


JMP 

DWN1 


0893 

yi 6 ft E. 

Cl 8 A 

DWN4 

MOV 

10, CLLOC S 

iET POINTERS 

W&94 

06B01 

C216 


MOV 

+CLLOC, CLINNO 


0895 

06 B2 

.1003 


JMP 

EXIT 


0896 

06B4 

CH ft"* Pi 

06 A 0 

■“:* f LT • * 

EOF EXT 

BL. 

0MSQOUT 


089 7 

O D D 
0688 

0000 


DATA 

12 


0898 

060ft 

0380 

EXIT 

RTWP 



0899 



ROU" 

riNE i 

COMMON TO UP AND DOWN 

0900 

06BC 

0148 

UDC0M1 

MOV 

RTN, 5 


0901 

06 B E 

06FI0 


BL. 

0SKANOP 



06C0 

0500 ’* 





i 3902 

66C2 

0581 


INC 

UDCNT 

DEFAULT COUNT 

8:903 

06C4 

0041 


MOV 

UDCNT, UDCNT 


0994 

06C6 

1.3F.9 


•JEQ 

EXIT 


0905 

06C8 

0455 


B 

■*+•5 



PXREDT 
UP COMMAND 


M I R A990 V2L1 12 : 12 : 11 
948927-9901** 


258/76 


PAGE 0027 


0908 



* TITLE 


UP 


0909 





UP COMMAND 


0910 



* REVIE 

ION: 



0911 





ORIGINAL 


0912 



* COMPUTER : . 

990, ASSEMBLY 


0913 



* ABSTRACT: 

MOVES POINTER 

UP NUMBER OF LINES SPECIFIED 

09:14 





BY COMMAND 


0915 



* CALLING SEQUENCE: 


0916 





BLUR @UP 


0917 

06CR 

0026 “■ 

UP 

DATA 

ROUTRG, #+2 



06 CC 

06 CE 





0918 

06 CE 

06R0 


BL 

eiJDCOMl 

DETERMINE COUNT 


06D0 

06BC 





0919 

06D2 

C1D0 


MOV 

+DUMNXT, TMLOC 

BUFFER EMPTY? 

0920 

06D4 

1602 


JNE 

1' •+• 6 


8921 

06D6 

0460 


B 

0MEMPTY 



06D8 

03EA" 





0922 

06DA 

8187 


c 

TMLOC, CLLOC 

ALREADY AT TOP? 

0923 

06DC 

1683 


JNE 

UP 4 


0924 

06DE 

06R0 


BL 

0ATTOP 

YES 


06E0 

03 D 6 





0925 

06132 

100B 


■JMP 

EXTUP 


8926 

06 E4 

C1C6 

UP 4 

MOV 

CLLOC, TMLOC 

GET L.OC OF LINE 

0927 

06E.6 

05C7 


INCT 

TMLOC 

AT POINTER 

0928 

0 6 E y 

C297 


MOV 

: + : TMLOC, 10 

SET TO LOOK AT PREV LINE 

0929 

06 ER 

05CR 

UP1 

INCT 

10 


0930 

06 EC 

C1CR 


MOV 

10, TMLOC 


0931 

06EE 

C297 


MOV 

+ TMLOC, 10 


0932 

06F0 

0681 


DEC 

UDCNT 


0933 

06F 2 

1504 


JGT 

UP2 

MOVE UP ONE MORE 

0934 

06F4 

0647 


DECT 

TMLOC 

SET POINTERS. 

0935 



UP3 




0936 

06F6 

C:1 8 7 


MOV 

TMLOC, CLLOC 


0937 

06 F 3 

U216 


MOV 

*CLLOC, CLl'NNO 


0938 

86FR 

03:80 

EXT UP 

RTWP 



0 9 3- 9 

00h* U 

i„.: 8 9 R 

UP2 

MOV 

*10, *10 

TERMINAL NODE? 

0948 

06FE 

16F5 


JNE 

UP! 

NO 

0941 

0700 

06A0 


BL 

0ATTOP 

YES 


0702 

03D6 





8942 

0704 

C1D0 


MOV 

*DUMNXT, TMLOC 

SET TO TOP LINE. 

0 943 

0706 

10F7 


JMP 

UP 3 



f'KKtu I MIRA9 

INPUT SOURCE 


90 V2L1 12 : 13 : 11 
9 4 8 9 2 7 •- 9 9 0 1 + + 


PAGE 0028 


0946' 



* TITLE: 

INSOU 


0947 



+: 

INPUT SOURCE LINE 

\ 0948 



* REVISION: 



jT 0949 



+: 

ORIGINAL 


095© 



+: 

03/15/76 


0951 



+: 

MODIFIED TO RUN 

WITH PXRMTR 

©952 



* COMPUTER: 

990, ASSEMBLY 


0953 



+: RBSTRfiCT: 

BRINGS IN SOURCE 

LINES, SETS UP HEADERS, 

0954 



+: 

SETS UP POINTERS 


0955 



+: CALLING SEQUENCE: 


©956 



+: 

BL © INSOU 


0957 

0708 

014B 

INSOU MOV 

RTN, 5 SAVE RETURN ADDRESS 

©953 

070ft 

0320 

MOV 

©EOFLG, ©EOFLG 

CHECK EOF FLAG 


070C 

0114 - 





070E 

0114 "■ 




©959 

0710 

1640 

JNE 

EX I TIN 

IF SET, EXIT 

©9 60 

0712 

06FI0 

BL 

©BOTTOM 

FIND LAST LINE 


0 r’ 1 . 4 

065ft ’** 




0961 

0716 

0307 

MOV 

TMLOC, ©PR VL I N 



0718 

01 5 E 




pi 9 © c.1. 

071ft 

0227 

AI 

TMLOC, 4 



0710 

0004 




0963 

07:1 E 

0807 

MOV 

TMLOC, 0SLOC 



072© 

0156 




0964 

0 r’ 2 2 

C 2 FI 0 

I NPS3 MOV 

©HI COR, 10 

IS THERE ROOM 


0724 

0008 •“ 




©965 

0726 

6284 

5 

LINPTR, 10 FOR 

ONE LINE? 


0723 

028ft 

CI 

10,80 MIN SPACE FOR ONE LINE 


072ft 

0050 




^0967 

0720 

1 B 02 

•JH 

'$■+€• 


0968 

072E 

06FI0 

BL 

©SQUEEZ 

NO 


0730 

0408 •** 




0969 

0 f* «.*:• 2 

05H0 

INC 

©MAXLIN 



0734 

0150 




0978 

0736 

0284 

MOV 

LINPTR, 10 


897:1 

0733 

CEftS 

MOV 

©MAXLIN, + 1 . 0 + 

PUT LINE NO IN HEADER 


073 ft 

0150 -* 




0972 

0730 

CEFI© 

MOV 

©PR VL I N, +10+ 

SET PREVIOUS LINE PTR 


©73E 

015E ■’ 




0973 

©740 

030ft 

MOV 

10, ©SLINPT 

SAVE LOG OF CELL WHICH MAY 


©742 

0158 *“ 




©9 ,• 4 

© 744 

©4Fft 

CLR 

+R10+ 

ADDR FOR INPUT IN RIO 

0975 

©746 

030ft 

MOV 

R10, R12 

SAVE INPUT ADDR 

8976 

© s' 43 

0420 

BL.WP 

©READ 

INPUT 


074 ft 

0F9R -* 




©9 7 7 

8740 

0249 

AND I 

R 9 , E 0 F + 1 0 E R R 

CHECK FOR EOF OR 10 ERR 


0 74E 

6000 




Q “7 

0750 

151E 

JGT 

INPS1 

YES 

Pi 9 7:4 

8752 

060F| 

I NFS 2 DEC 

R10 

DELETE TRAILING BLANKS 

0 930 

8754 

... .««, yy* /“ 

981ft 

i7i ‘i O ii* •** 

CB 

+R 10 , @SP 


0931 

WJ .JQ 

© 753 

•m.I JL O O 

13FC 

.JEQ 

INPS2 


0932 

075ft 

058 A 

INC 

R10 


0:933 

0750 

DEH8 

MOVE 

@CR, +R10+ 

END SOURCE LINE WITH CR 


o 


;redt 


MIR0990 V2L.1 

L 12 

: : O : 11 258/76 

P0GE 0029 

IF'UT $ 

SOURCE 

4 

0 75E 

0185" 

2 4 8 9 2 7 - 9 9 0 1 : + : : + : 


0984 

0760 

0762 

2200 
012E " 

coc 

0M0RGLM, R10 

INC TO 

0985 

0 7 6 4 

1601 

JNE 

■$.+4 

NEXT WORD 

i-'l 9 Hir, 

0 766 

0580 

INC . 

R10 

IF ODD ADDRESS 

8987 

0768 
07 6 R 

C804 

015E" 

MOV 

LINPTR, 0PRVLIN 


0988 

076C 

Cl 00 

MOV 

R10, LINPTR 

POINTER FOR NEXT SOURCE 

0989 

076E 

0770 

C200 
01.56 •" 

MOV 

0SLOC, R10 


0990 

0772 

0774 

C600 
015 E " 

MOV 

0PRVLIN, *R10 

FIX NXT LINE PTR OF PRV 


0 7 76 
0778 
07 7 R 

C820 

01.58" 

0156" 

MOV 

0SLINPT, 0SLOC 


0992 

07 7 C 
077E 
0780 
0782 

C220 

*j r r* 

MOV 

0M0XLIN, CLINNO 

SET POINTER 

0993 

C100 
015E ■" 

MOV 

0PRVLIN, CLLOC 

P0R0METERS 

0994 

0784 

f“i O uiT 

iW| c::; . • 

C 

UDCNT, 0M0XLIN 

NEED ANOTHER LINE? 

0995 

t r o o 

0 788 

15CC 

JQT 

INPS3 

VES 

0996 

078R 

05C5 

INCT 

5 


0997 

078C 

0455 

B 

+5 

RETURN 

M99R 

078E 

0790 

0500 INPS1 
01.14" 

INC 

0EOFLG 

EOF RECORD DETECTED 

0999 

0792 

0455 EXIT IN 

B 

*5 



LINE 

LINE 


PAGE ©030 


1 ... i-ur.rus'Ki Vi2i_a 12:13:41 258/76 

I I uOMMAND 948327-9901** 

J..002 * TITLE: EXT 

* aa '* * EXIT COMMAND 

* REVISION: 03/15/76 

+: ORIGINAL - COMMAND ADDED TO RESTART WITHOUT 

* . WRITING EOF 

+• COMPUTER: 990.. 990 ASSEMBLY 

ABSTRACT: RESTARTS THE EDIT PROCESS WITHOUT WRITING EOF 

CALLING SEQUENCE: 

BLWP QEXT 

1011 0794 0006-" EXT DATA MAINRG.. ENDACT WORKSPACE- START 

0796 027A-" 

1012 :+: 






PH'REDT 

FIND COHNS 

* 

1015 

1016 
"> 1017 

J> 1018 

1019 

1020 
1021 

1023 

1024 


MIRA? 


90 V2L1 12 : 13 : 11 
948927—9901** 


258/76 


PAGE 8031 


1025 



1026 



lUc.\ t 
1.026 

0798 

Oi02C: 


0790 

079C 

1029 

0790: 

02EO 


079E 

8026 

1020 

0708 

©600 


0702 

0590 

1031 

0704 

i,„: y 0 y 


0 706 

0024 

1032 

0708 

028 C 


0700 

0040 

1033: 

070 C 

1603 

1034 

07AE 

0720 


07B0 

01 1.E 

1935 

07B2 

1007 

1036 

07B4 

0280 


07B6 

0046 

1.037 

0768 

1302 

1038 

07BA 

0460 


97BC 

0A58 

1039 

07 BE 

04E0 


87 C0 

01. IE 

1040 

07 C2 

04E0 


@704 

0166 

104:1 

07C6 

04E0 


0708 

0:120 

1042 

0700 

04E6 


0700 

0122 

1043 

07OE 

04E0 


07D0 

0124 

1044 

07 :, D2 

04E0 


07194 

0126 

i pi • 

0 7D6 

06 A0 


6 7D8 

0A5C 

1046 

0 r* L .- 1 fl 

L 


0 7 LX, 

0164 

iu-i 4 r 

0 7I.X: 

U820 

{ ;..j •“> o 


0 i 60 

0 b.2 

01 r" 4 

.1.646 

0 r'fc.4 

0600 


Q7ES 

0060 

1 8 4 9 

07E8 

8880 


TITLE: FND 

FIND COMMAND 

REVISION: 

ORIGINAL 

03/15/76 

MODIFIED TO RUN WITH PXRMTR 
COMPUTER: 990, ASSEMBLY 

ABSTRACT: THE FIND COMMAND LOCATES STRINGS AND 
THEN CAN REPLACE THE FIRST STRING BV 
THE SECOND WITH VERIFY AND PRINT OPTIONS. 
CALLING SEQUENCE: 

BLWP QFND 


DATA ROUTR1, $+2 
LWPI ROUTRG 
BL ©EXOP 

MOV CLINNO, 0 ROUTRG -2 


GET OPERANDS 


Cl 12, 'L' 

■JNE ■$+& 

SETO 6LFFLG 

IMP FNDfl 

Cl 12, •" F •" 

.JEQ 1+6 
B ©EREXFN 

CLR ©LFFLG 

FND A CLR ©SRKNT 

CLR 0PFLG 

CLR OVFLG 

CLR ©REPFLG 

CLR ©NWLF 

BL ©GITCR 

huv 12, ©FSD 

MOV ©CC, 0FSDX 

FNDB BL ©GITCRB 


FIND IN LABEL FIELD? 


FIND FIRST OCCURANCE? 

NO 

YES 

CLEAR STR I NGS-F OUND COUNT 


CLEAR REPLACEMENT FLAG 
CLEAR NEW L.OC FLAG 
GET AND SAVE 
FIRST STRING DELIMETER 


SCAN TO 


12, @FSD 


END OF 


Vi x r:n^s»e* 


258/76 


Vc'Ll 


13 : 1J: : 11 


o 


ND CO 

Mil AND 



94892 i 

7~990:l : + :: + : 


07ER 

01 64 




1050 

07EC 

1.6FB 


JNE 

FNDB 

.1051 

07EE 

j'I-( T* p." {“ : j 

C2R0 

i - ."i • j 


MOV 

©CO, 10 

1.052 

07 F 3 

060ft 


DEC . 

10 

1053 

07 F 4 

62R0 


b 

0FSDX, 10 


07F6 

0174 •' 




1054 

07F8 

1602 


JNE 

$+6 

1055 

07FA 

0460 


B 

0OPNERR 


07FC 

03E10 *' 




1056' 

07FE 

C1CA 


MOV 

10, TMLOC 

1057 



FNDC 



1058 

0800 

06R0 


BL 

0GCHA 


0802 

0580 




105.8 

0804 

02 8 C 


Cl 

12.. >20 


0806 

0020 




1060 

0808 

13 FB 


JEQ 

FNDC 

1061 

080FI 

028C 


Cl 

12, - V-' 


080C 

0056 




1 0 b 3 

080E 

1602 


JNE 

$+6 

1063 

08:10 

0460 


B 

0OPNERR 

1064 

w .J.* &»« 

0814 

028C 


CI 

12, >0D 


0316 

00 0D 




lid bo 

0bi a 

13 3 M 


JEQ 

FND1B 

J.. kj P;. 

081 H 

02 8 C 


CI 

12, - P -' 


0bib 

ytJDW 




ILKlb »" 

0OXC 



j tt! 

FND1B-4 

1 0bb 

0830 

8808 


MOV 

12, 0SSD 


0833 

0168 ■” 




10b 8 

0824 

C820 


MOV 

0CC, @SSD> 


0826 

0138 •” 





0828 

01.76 x 




1070 

0828 

06ft 0 

FNDF 

BL 

0GITCRB 


08 2 C 

0 ft 6ft 




107:1 

082 E 

880C 


c 

12 , esSD 


0830 

0168 




1072 

0832 

16 FB 


JNE 

FNDF 

1073 

©834 

05ft 0 


INC 

0REPFLG 


08. .lb 

0134 ’ 




1074 

0838 

C2R0 


MOV 

OCC, 10 


08 3 ft 

0:138 




1.075 

083C 

060ft 


DEC 

10 ADJl 

i 07‘b 

083.E 

62ft© 


S' 

0SSDX, 10 


0840 

0176 •' 




1.0 77 

0842 

8 1C ft 


c 

10, TMLOC 

::l..0 7 b 

0844 

1302 


•JEQ 

$+6 

1078 

0846 

05ft 0 


INC 

0NWLF 

1.06; Pi 

0848 

8126 " 

F Hbk 



1081 

084 ft 

0 b ft© 


BL 

QGCHA 


084C 

0580 




1 0 8 2 

0856 

02 8C 

iTt l'.'ij i*“j »”•, 


CI 

12, >OD 

i 0 

K.I K,1 PI I,,.' 

1..30D 


JEQ 

FND1B 


PAGE 0032 

FIRST STRING- 
CHECK FOR NULL STRING 

ADJUST FOR DELIMETER 

NOT ALLOWED 
SAVE STRING LENGTH. 

GET NEXT CHAR. 

CHAR FROM COMBUF 

-V-' IS NOT A VALID 

DELIMETER FOR 
SECOND STRING 

IF C/R, THEN NO PRINT, NO S 

AND NO STRING REPLACEMENT 
CHECK FOR PRINT OPTION. 

SAVE 2ND 

AND ITS POSITION. 

SCAN TO END OF 
SECOND STRING. 

SET STRING REPLACEMENT FLf 

FOR DELIMETER. 

STRINGS WITH 

SAME LENGTH? 

SET NEW-LOC FLAG 

SEE IF VERIFY OR 
PRINT OPTION SET. 

NEITHER 


/ERI 


258/76 


F'HGb WUJJ. 


PKREDT M I RA990 

FIND COMMAND 


V2L1 12 : 13 : 11 
9 4 8 9 27-9 9 0 1 * * 


IQS 4 

O , 1085 

1087 

1089 

1.098 

109.1 

1.092 

1993 

1094 

.1095 

l 

.1.096 

10.97 

1.098 

1099 

1100 

1101 

C l X 0 2 
} 1103 

1104 

1105 

1106 

1:107 

1.108 

1109 

111.9 

ill! 


1115 

111,6 

1118 


0854 

02: 8 C 

8856 

0056 

0858 

1602 

085FI 

05ft 0 

085f: 

0122 

085E 

028C 

0860 

0050 

0 y 6 k! 

166i2 

0864 

05R0 

WW66 

£1120 

0868 

10F0 

086ft 

05A0 

086C 

0120 

886E 

05FI0 

087 :, 0 

0128 

0872 

C243 

0874 

C089 

0876 

C2601 

0878 

0126 

087ft 

130F 

08 7 C 

C 2 ft 0i 

087E 

00018 

0880 

C120 

0882 

002E 

0834 

6284 

0886 

028ft 

0888 

0050 

088 ft 

1807 

Q88C 

C220I 

088E 

0024 

0890 

0600 

0892 

0408 

0894 

1002 

0896 

0460 

0898 

0ft 40 

089ft 

C282 

089 C 

C'dSH 

089 E! 

0150 

08FI0 

C 8 0i ft 

08 ft 2 

0152 

08 ft 4 

C83H 

0 y ft 6 

0148 

08H8 

C80FI 

08 ft ft 

016ft 

08ftC 

C83ft 

yyftE. 

014E 

0880 

C 8 0i ft 

0882 

01 6C 

0884 

84CD 

0886 

04CE 

0888 

088ft 

C.<C4 
y k! 6 y 

08BC 

0126 



Cl 

12, "V" 



JNE 

1+b 



I NO 

eVFLQ 

SET VERIFY 


Cl 

12, - F'-' 



JNE 

$+6 



INC 

OP FLO 

SET PRINT 


JMP 

FASK 


+ L.OC 

ATE THE LINE TO BE 

SEARCHED 


INC 

0PFLG 

SET PRINT 

FND1.B 

INC 

0FFLG 



MOV 

PL I MTS, 9 


FND1 

MOV 

9, LI NAD 

SAVE ADDR OF CURRENT LINE 


MOV 

0NWLF, 9 

EXTRA MEMORY SPACE REQUIRED? 


JEQ 

FND1A 

NO 


MOV 

OH I COR, 10 

ft U U M F U R 


MOV 

©VLNPTR, LINF'TR ONE 



LINF'TR, 10 

LINE? 


Cl 

10, 80 



JH 

FND1A 



MOV 

0R0UTR0-2, CL 

INNO GET BACK LINE NO. 


BL 

0SQUEEZ 

NO 


JMP 

1+6 



B 

0PFKNT 

BUFFER FULL 

FND1A 

MOV 

LI NAD, 10 



MOV 

+10+, OCURNO 

SAVE LINE NUMBER 


MOV 

10, OPR LAD 



MOV 

+•10+ , OPRELAD 

SAVE ADDR OF PREVIOUS LINE 


MOV 

1W, OF /LAD 



MOV 

*10+, ON/TLAD 

SAVE ADDR OF NEXT LINE 


MOV 

10, OTHLAD 



CLR 

FGF’OS 

CLEAR LINE 


CLR 

FPF'OS 

INDICES 


* CREATE HEADER FOR POSSIBLE NEW LINE 
MOV L.INPTR, NEWPTR 
MOV 0NWLF, 9 


rAKti,* I 


MIRA998 V2 

LI 1 

2 : .12 : 11 258/76 


PAGE 0024 

FIND O 

OMMAND 



9 4 8 9 2 

7-9901+:* 



1:1:19 

08 BE 

160.1 


JNE 

*•+ 4 



.1:120 

08 C0 

0302 


MOV 

LINfiD, NEWPTR SPACE? 


1121 

08C2 

CFE© 


MOV 

0 CUR NO.. +NEWPTR+ 

COPV 

1 LINE NO TO HEADER 

U ; 

88 C4 

0150 •' 






11.22 

0803 

CFE0 


MOV . 

0PRELAD, + : NEHPTR+ 


FIX POINTER TO PREV LINE 


0803 

0148" 






1123 

080 ft 

CFE0 


MOV 

ONXTLAD, +=NEWPTR+ 


FIX POINTER TO NEXT LINE 


08UU 

814E-* 






:.i..:ic::4 

tiyub. 

Ob HO 

FND2 

BL 

OFRGLIN 


GET CHAR FROM OLD LINE 


08D0 

0894 






1:1.2 b 

Q8D2 

880D 


c 

FGPOS, 0LOMRG 


TIME TO START STRING MATCH 


0804 

0134*“ 






112S 

08L-'«b 

140b 


-THE 

FND3 

VES 


1122 

08D8 

06 ft 8 

FND4 

BL 

OTGNLIN 


NO 


08Dfl 

09R8 " 






1128 

8801.: 

0288 


Ui 

FCHAR, >0D 




08Dfe 

0000 






112 9 

88 E0 

134B 


JEQ 

FND9 


END OF OLD LINE 

1:00 

08E2 

10F5 


JMP 

FND2 



10:1 

08E4 

880 D 

FND3 

0 

FGPOS, 0HIMRG 


TIME TO STOP STRING MATCH I 


08E6 

0136 






.1.1 .12 

08E3 

1547 


JQT 

FND9 

VES, 

STRING NOT FOUND 

XX. .is 

08 b. bf 

L-820 


MOV 

OFSDX, 0FSDXT 

NO 



0888 

01 24 " 







08EE 

0172-' 






1.134 

08F- 0 

06ft0 


BL 

OFRSTR 


GET CHAR FROM STRING 


08b 2 

098b - 






1135 

03F4 

83G8 


c 

FCHAR, 12 



1.126 

08F6 

1384 


JEQ 

FND5 


STRING MATCH FOUND 

I 1.137 

08 F 8 

0320 

FND7 

MOV 

0LFFLG, 12 

NO, 

IS MODE SET TO LABEL 


08Ffl 

01 IE *“ 






1138 

08FC 

11 3D 


.TLT 

FND9 


FIELD ONLY? VES NO MATCH 

iii-y 

08b t 

X0b.L- 


JMP 

FND4 


TRY TO MATCH NEXT POSIT 10 

1:148 

0800 

U 8 0i.;» 

h NL'0 

MOV 

FGPOS, 0SCFP 


FOUND POINTER 


0902 

01 6E '* 






11.41 

0904 

0629 


DEC 

0SCFP 




0906 

016E 






1142 

0908 

06FI0 

FND6 

BL 

0TONLIN 




090ft 

09 ft 8 •'* 






1143 

0900 

01. CD 


MOV 

F G P 0 S , T M L 0 C 



1144 

0.9 8E 

06R0 


BL. 

0FROLIN 




0910 

0994 ' 






1145 

0912 

iylCM ,•*{. 

8307 

i7-f •*{ ’7*|£r 


C 

TMLOC, 0HIMRG 

DON 

7T LOOK PAST HIGH MARGIN 

1:1. 46' 

0916 

1530 


•JOT 

FND9 



1147 

091.8 

06R0 


BL 

0FRSTR 




091ft 09B6 


1.48 09 1C 

89 IE 

8220 

0164 

C 0FSD, 1.2 

FOUND END OF FIRST STRING? 

1 4 9 ft ftp ft 

1309 

•JEQ SFND 

VES, MATCH IS FOUND. 

loti 0922 

8308 

C FCHAR, 12 


151 0924 

13F.1 

JEQ ENDS 

MATCH I NG CONT I NUES 

152 0926 

C360 

MOV OSCFP, FGPOS 

RESET OLD-LINE 


0923 016E' 

092ft 058D I NC FOR OS SCAN 



!'•'! I RA990 


F'RGE 0035 


FIND COMMAND 


I:!.... 1 


12 : 13 : 11 
927~9901 : + :: +- 


6 





;i’j. 54 

0 Q X ! 

03 3D 


MOV 

FGF'OS, FPF'OS 

POSITION 

1:155 

09 2 E 

06R0 


BL 

©FROL IN 

GET CHRP 


0920 

0994 ■" 





1:156 

09.32 

1.0D8 


•IMP 

FND3 

MATCHING STRING ENDED 

±15 7 

0934 

05 R0 

SFND 

INC 

OSRKNT 

STEP FOUND COUNT 


0936 

0166 •' 





1±::::«3 

0938 

0320 


MOV 

QVFLG, 12 



893 ft 

0:122 ' 





1159 

0930 

130 D 


■JEQ 

NOW 

VERIFY WAS NOT SET 

:.i ±60 

093E 

U X! 3 7! 


MOV 

LI NAD, 10 


1161 

094 8 

@6R0 


BL 

ePRLIN 

PRINT OLD LINE 


0942 

8068 ■' 





1.162 

0944 

028R 


LI 

R1.0, MSG13 

PRINT -V/N? •- 


0 943 

0xB4 ' 





1:16*2: 

0948 

0429 


BLWP 

OPR ININ 



0940 

0FF0 •" 





11 6’ 4 

0940 

06R0 


BL 

QGETANS 



094E 

02DA -■ 





1165 

0958 

3820 


CB 

QPBUF, ©YEA 

DID HE ANSWER YES? 


0952 

0002 






0954 

0:195 ■** 





1166 

0953 

.161.0 


JNE 

FND9 

NO 

1 167 

0953 

0320 

NOW 

MOV 

©REPFLG, 12 

REPLACE STRING? 


095R 

01.24 





:t 1. 3 3 

0950 

1347 


JEQ 

FND11 

NO 

1169 

095 E! 

i..;3;, : :0 


MOV 

OSSDX, ©FSDXT 

SET STRING EXTRACT POINTER 


0930 

0176 •" 






0962 

0:172 





±17Q 

0934 

C3R0 


MOV 

0 S L F F' , FF'F'US 

TO 2ND STRING. 


0933 

0:1613 •' 





±171 

0963 

06R0 

FND8 

BL. 

©FRSTR 

GET CHAR FROM 2ND STRING 


096ft 

03B3 • 





1:1 i'll 1 

8960 

8x20 


C 

©SSD, 12 

AT END? 


096E 

0:168 •'* 





• j • 1 

0970 

132E 


JEQ 

FND10+4 

YES 

1174 

0972 

06R0 


BL 

©PTONLN 

NO, COPY STRING 2 INTO 


0974 

09R2 ■' 





75 

0 9 7 8 

1.0F8 


JMP 

FND8 

NEW LINE. GET NEXT ONE. 

11 r 

ixx 73 

Cx20 

FND9 

MOV 

©ABRLFG, 12 

ABSOLUTE OR RELATIVE? 


09 7 hi 

Bill.: •* 





1177 

0970 

1688 


JNE 

FND9A 

RELATIVE 

1:178 

09 7 E 

8060 


C 

0CURNO, UDCNT 

ALL DONE? 


0930 

0150 •" 





IX 79 

3982 

135E 


JEQ 

F'FKNT 

PR I NT FOUND-COUNT 

uyw 

0934 

0260 

FND9B 

MOV 

©NXTLAD, 9 

NO, PREPARE FOR NEXT LINE 


0936 

0:14 b •- 





1:181 

0988 

1358 


JEQ 

FERN I T 

THERE IS NO NEXT ONE- 

j L 3 X 

09 3 M 

0460 


B 

©FNDl 

YES, DO NEXT ONE. 


0980 

0874 





1183 

093E 

060:1 

FND9R 

DEC 

UDCNT 

DECREMENT LINE COUNT. 

1.134 

0380 

15F9 


•JOT 

FND9B 

NOT FINISHED 

1:135 

8992 

1056 


•JMP 

F'FKNT 

PRINT FOUND-COUNT 

1:1.36 



: + : GET 

CHAR 

FROM OLD LINE 


1.1.37 

0994 

C2E : i0 

FROL I N 

MOV 

©THLAD, 1.0 

ADDR FOR LINE 


0993 

0160 •'* 






RED T 


I'll PR: 

990 V2L1 13 

: 13 : 11 258, 

*'76 PfiGE 0036 

ND CO 

MMfilMD 

4 


948927 

'--9901** 


±±ss 

0998 

A28D 

ft 

FGPOS, 10 

ADD INDEX 

1.1.89 

999ft 

D21.9 

MOVE 

••+■±0, FCHfiR 

GET CHRP 

;i ;1 3 0 

099C 

0888 

SRfi 

FCHRR, 8 


11.91 

099E 

058D 

INC 

FGPOS 

INCREMENT INDEX TO NEXT CHRP 

.11.92 

09ft0 

045B 

B 

+RTN 

RETURN 

1193: 



+ PUT CHRP 

IN NEW LINE 


1:194 

09ft 2 

C320 

PTONL.N MOV 

0STRCHR, 12 



0994 

0170 




1195 

0.9 ft 6 

1001 

JMP 

$+4 


1196 

Q9fi8 

C308 

TONLIN MOV 

FCHfiR, 12 


1:197 

09ft ft 

C28F 

MOV 

NEWF'TR, 10 

fiDDR OF LINE 

1198 

0i 9 ft C 

R28E 

ft 

FF’F'OS, 10 

RDD INDEX 

1199 

09FlE 

0FI8C 

SLR 

:12.» 8 

POSITION CHRP 

iLWU 

@9B@ 

D68C 

MOVE 

12, +10 

PUT IN LINE 

1.20:1 

09B2 

058E 

I NC 

FF'F'OS 

INCREMENT INDEX 

1202 

09B4 

045B 

B 

+RTN 


1283 



+ GET fl CHRP FROM STRING 

IN COMBIJF 

1204 



FRSTR 



1205 

09i86 

C2ft8 

MOV 

eFSDXT, 10 



0988 

0172 




1.206 

0.9B9 

D32R 

MOVE 

0CPBUF < 10 > , 12 

GET CHRP 


09 BC 

0©6 E 




1207 

09 BE 

088C 

SRR 

12, 8 


1208 

0900 

UW0C 

MOV 

12, 0STRCHR 

SAVE 


.0902 

0170 




1 2 9 

09 C 4 

05ft 0 

INC 

0FSDXT 

INCREMENT INDEX 

12:10 

j : ;i 9 L- 0* 

09C8 

01 72 
045B 

B 

+RTN 

RETURN 

1.2:11 

09Cfl 

06P10 

FND1.0 BL 

0FROLIN 

COF’V REMAINDER OF OLD 


09CC 

0994 




1212 

09CE 

06ft 0 

BL 

0TONLIN 

LINE ONTO NEW LINE 


09 D0 

09 ft 8 




± 2:13 

tf992 

200 

Cl 

FCHRR, >0D 



09 D 4 

000D 




1214 

09 D 6 

16F9 

•JNE 

FND10 


1215 

09D8 

028E 

Cl 

FF'F'OS, 81 



09Dft 

005:1 




,12:1 6 

09DU 

1107 

JLT 

FND11 

LINE WILL FIT 

• j * j ***** 

89 DE 

0208 

LI 

FCHfiR, >0D 

LINE TOO LONG 


09E0 

00 0D 




.12:18 

09E2 

020E 

LI 

FPPOS, 80 



09E4 

0050 




12:19 

09 E 6 

06ft0 

BL 

0 TONLIN 

AFTER 80TH CHAR 


09E8 

09 ft 8 




1228 

09Eft 

1.003 

JMP 

FND.11B 


122:1 



FND11 



1222 

09 EC 

C320 

MOV 

0PFLG, 12 



0 9 E E 

0120 




1.223 

09F0 

1305 

JEQ 

FNDllfl 

NO 

1224 



FND11B 



x 2 :::» 

09P“2 

C28F 

MOV 

NEWF'TR, 16 

VES 

1 , 2 ,2 6 

09h 4 

022ft 

RI 

10, -6 



0 9 p p, p p p ft 
09 F 8 0600 

0 ft p pj 0 { „! 6 !*“! ' 


0PRLIN 


r>: 

CJ..‘ ' 


Pt .l kh: 

330 V2LJ 

:i 

2 : .13 : 11 258376 

PRGE 0827 

N 

D C 0 

TiMhN L 


34832 

7-390l4 :: + : 


. i.. 




* { I IMF 

.: THE 

NEW LINE INTO LI: 

ST ME! MOP V WHERE THE 

;i 

2 3 



+ OLD 

ONE 

WAS, Find MARK OLD 

LINE INACTIVE 

1 

230 

03 F C 

C320 

FNDllft 

MOV 

0REPFLG, 12 

ftNV REPLACEMENT? 



03 F E 

0124 





± 

221 

Oft 00 

13: BE? 


•JEQ 

FND9 

NO 

1 

2 

0R02 

C220 


MOV 

ONWLF, 1.2 

NEW LOCATION? 



0R04 

01.26 





.1 

”3 

0R06 

1.3B8 


JEQ 

FND9 

NO 

1 

224 

Oft 08 

0228 


MOV 

0PRLFID, 12 




0 ftQfi 

0152 





i 

225 

0R0C 

C21.C 


MOV 

+12, 12 


1 

2 2 6 

0R0E 

02 2 C 


ft I 

12, 4 




0 ft. 10 

0004 





;] 

•**, *••«« 
i 

0ft 12 

C704 


MOV 

LINPTR, +12 FIX 

PREV-LIN 

1 


0ft 14 

C228 


MOV 

0FXL.RD, 12 

FIX NEXT LINE 



f : ;lR16 

0.1.6 ft 





! 

3 

0ft IS 

C31C 


MOV 

+12, 12 


1. 

240 

0ft ± ft 

1202 


JEQ 

FND11.C 

NO NEXT LINE 

1 

241 

0ft. 1C 

05CC 


I NCI 

12 


•1 

242 

0ft IE 

C704 


MOV 

LINPTR, +12 


i 

242 

0ft 20 

C142 

FMD11.C 

MOV 

LI HAD, 5 


1. 

244 

0ft 2 2 

C220 


MOV 

0ROUTRG-2, CL I NNO 

* 



6ft 2 4 

0024 





i. 

245 

0ft 2 6 

06R0 


BL 

0KLRLIN 

CLEAR THE LINE 



0028 

0E16 






("l' 4 1~;. 

0ft 2ft 

C30E 


MOV 

FF'F'OS, 12 FID- 

JUST 

1 

247" 

0ft2C 

2220 


COO 

0MRRGLM, 12 

PUT ON WORD BOUNDPV 



0ft 2 E 

012E 





.1 

4 8 

0ft 3:0 

1601 


JNE 

$+4 


i 

243 

0A32 

058C 


INC 

12 


X. 

258 

0A34 

R20F 


ft 

NEWPTR, 12 POINTER 

1 

251 

0ft 3: 6' 

CISC 


MOV 

12, LINPTR 


:i 

1 

i 

252 

0ft 3- 8 

103 F 


•IMP 

FND9 

CHECK IF FILL DONE 

254 

0ft.3:ft 

06 00 

•T* 

FERXIT' 

BL 

0MSGOUT 




0ft3-C 

02i;E 






’ rt »* |,,, j 

0ft3:E 

00:10 


DftTft 

16 

PRINT ‘"LAST LINE' 

-i 

256 

0ft40 

C268 

PFK'NT 

MOV 

0SRKNT, 9 




0ft 4 2 

0:166 





1 

2-6 7 

0ft 44 

06 R0 


BL 

0CONVRT 

CONVERT COUNT TO 



0ft 4 6 

0304 





± 

!::;i 6 

0ft 48 

0600 


BL 

0MSGOUT 

PRINT MESSAGE 



0ft 4ft 

02 CE 





X. 

253 

0ft 4C 

000 E 


DftTft 

1.4 

0008 FOUND 

:.l 

260 

0ft 4 E 

0220 


MOV 

0ROUTRG--2, CL I NNO 

GET BACK LINE NO. 



0ft 50 

0024 





1. 

261 

0ft 52 

02E0 


LWF'I 

R0UTP1 




0ft 5 4 

0020 





j 

2 i;::< 2 

0ft 5 6 

0288 


RTWP 



1 

2: 6 2 

0ft 5 8 

0460 

EREXFN 

B 

eOPNERR 




0ft 5ft 

02E0 





.1 

b 4 

uftbu 

014 B 

G I TCR 

MOV 

PIN, 5 



265 

8R5E 

06R0 

GITCR1 

BL 

0GITCRB 

EXTRACT CHAP FROM 



0R68 

0ft 6ft ‘ 





1 

b> 6 

6H62 

0286 


Cl 

12, >20 

COMBIJF, REJECTING 


PAGE 0038 



,!•’ ir.L' t 

: ND CC 

mmm 

0R64 

Pi .!. K'H9.‘ 
0020 

90 V2L.1 12:13:11 

9 4 8 9 2 7-99 0 1 * * 

1267 

0R66 

llF B 

JEQ GITCR1 

1268 

0R68 

8455 

B +5 

i Pf : ,P 

0R6R 

C24B 

Q I T CRB MOV RTN, 9 

1.270 

0R6C 

0R6E 

06R8 

0588 

BL 0GCHA 

1271 

0R70 

0072 

828 C 
000D 

Cl .12, >0D 

.1.272 

8R74 

1602 

•JNE $+6 


0R76 
00 78 

P;i 4 6 0 
03E0 

B 0OPNERR 

1274 

0R7R 

0459 

B +9 


BLANKS 

EXTRACT CHAR. 

FROM COMBUF, INCLUDING BLANKS 
BUT NOT C/R 


c 


o 


rcr.i. ' i 

SERI 


COMMAND 


l'1 1 KH330 V2L1 12 : 13 : 11 
948927-990.1++ 


258/76 


PAGE 0839 


1277 

1278 

1279 

1281 

1282 

1284 

1286 


INSRT 

INSERT COMMAND 


+ TITLE: 

* REVISION: 

* ORIGINAL 

* 03/15/76 

+ MODIFIED TO RUN WITH PXRMTR 

* COMPUTER: 990, ASSEMBLY 

+ ABSTRACT: INSERTS LINES FROM KEYBOARD INTO SOURCE 

* LINE BUFFER AND SETS UP POINTERS 

* CALLING SEQUENCE: 


128? 





BLWP ©INSRT 


1288 





BL ©INSCH 


1289 



* STATl 

STIC 

5: LINE NUMBER 

OF INSERTED LINES = >8000 

1290 

0 fl?c 

0026 *’* 

INSRT 

DATA 

ROUTRG, INSR5 



0fl7E 

0080 -* 





1291 

0H80 

0808 

INSCH 

MOV 

RTN, ©SAVRTN 

ENTRY POINT WHEN CALLED BY CHAN 


0932. 

0154- 





1292 

0H84 

C1.E0 


MOV 

©CHFLG, TMLOC 



0H86 

0116" 





1293 

0988 

1008 


•IMP 

INSR1 


1294 

0989 

0086 

INSR5 

MOV 

CLLOC, LI NAD 

GET POINTER LINE ADDR 

1295 

0880 

0600 


BL 

©SKANOP 

GET OPERAND > 


0A8E 

0500 " 





1296 

0990 

1005 


JMP 

INSR1A 

NONE, USE POINTER. 

1.2.9 ? 

0892 

C801 


MOV 

UDCNT, ©NUMB 

FIND ADDR OF LINE AFTER WHICH 


0M94 

01 3 C •- 





1299 

0H9b 

Lie.Hti 


BL 

©FLIN 

INSERTS ARE TO BE MADE 


0M99 

t.l4L4 " 





1299 

f-jn.9n 

«•* 

i NbKX 

MOV 

TMLOC, LI NAD 


1300 

0H.9O 

0290 

INSR1A 

MOV 

©HI COR, 10 

IS THERE 


0A9E 

0808 •" 





1301 

0890 

6284 



LINPTR, 10 

ROOM FOR 

1302 

0992 

0280 


Cl 

10, 80 

INSERT? 


0994 

0050 





1302 

8996 

1802 


JH 

■$ +6 

YES 

1304 

0998 

0 600 


EiL 

©SQUEEZ 

NO 


0090 

0408 





1385 

0000 

0284 


MOV 

LINPTR, 10 

CALC ADDR FOR 

1386 

000E 

0220 


AI 

10, 6 

I NSERT 


0080 

0006 





1307 

0082 

0284 


MOV 

LINPTR, R10 

CALC ADDR FOR 

1308 

0084 

0220 


A I 

R10, 6 

INSERT 


0086 

0006 





1309 

0988 

0300 


MOV 

R10, R12 

SAVE BUFFER STARTING ADDR 

1310 

0080 

0420 


BLWP 

©KEVIN 

INPUT LINE 


0080 

0F04 





1311 

@0BE 

D600 


MOVE! 

©CR, +R10 

END STRING WITH A CR 


0HU0 

0185 **' 





1312 

0HC2 

8300 


c 

R10, R12 

ANY INPUT? 

131.3 

0904 

1318 


JEQ 

EXTINS 

NO 

1314 

0006 

0580 


INC 

R10 

SET ADDR 

1315 

0008 

2208 


coc 

©MARGLM, R18 

FOR 


0000 

012E- 





13:1.6 

0000 

1601 


•JNE 

’^Hh4 

NEXT 


REDT 


MIRR990 V2L1 1 

2 : 13 : 11 258/ 

76 PAGE 0040 


ISERT 

COMMAND 

94892 

7-9901** 



±3:1.7 

0ACE 

058R 

INC 

R10 

INSERT 


13:18 

0RD0 

C144 

MOV 

LINPTR, 5 



12*1.9 

0AD2 

CD 60 

MOV 

@ I NLNNO, *5+ 

SET LINE NUMBER 



0RD4 

017ft*' 





1320 

0RD6 

05R0 

INC 

0INLNNO 

STEP INSERTED LINE COUNT 



0RD8 

017ft *** 





1321 

0RDR 

C302 

MOV 

LINRO, R12 



1322 

0RDC 

CD4C 

MOV 

R12, *5+ 

PUT fiDDR OF PREV LINE IN 

HEAD 

1323 

0RDE 

022C 

RI 

R12, 4 

FIX RDDR OF WORD IN PREV LINE T 


UHLW 

0004 





1324 

WHE2 

C25C 

MOV 

*R12.. 9 

FIND RDDR OF CELL IN NEXT 


1 32 D 

WHfc.4 

13b 2 

JEQ 

INSRS 

LINE (IF IT EXISTS) TO 


132b 

UHhfo 

05C9 

1 NCI 

y 

BE UPDATED 


1 3» &« i" 

write? 

tb-44 

MOV 

LINPTR, *9 

UP-DATE NEXT-LINE TO POINT 


X 32b 

tiMt.ii 

C D DC 

i NbKfo MUV 

*R12, *R5 

TO INSERTED LINE. MAKE IN 

SERTE 

;.i.,32^ 

HhC.t 

L- r" LI 4 

MOV 

LINPTR, *R12 

LINE POINT TO NEXT LINE. 

POINT 

1.53 b 

Witt. 

L-2bb 

MUV 

CLINNO, CLINNO 

PREV LINE TO INSERTED LINE 


..l 3 j.. 

tinr ti 

lb 02 

•JNE 

INSR7 



1332 

tlHI-2 

L-214 

MOV 

*L I NF'TR, CLINNO 

i IF POINTER ON DUMMV, MOVE 


1333 

WHh 4 

Cl 90 

MOV 

*DUMNXT, CLL.OC 

TO TOP LINE IN BUFFER 


X33S- 



l r-C'K i •' ' 1 




1335 



: + : PREPARE 

FOR NEXT INSERT 


1 3 3 6 

OAFS 

C1C4 

MOV 

LINPTR, TMLOC 



1 3 3 f* 

0RF8 

C10R 

MOV 

R10, LINPTR 



1338 

0RFR 

10CF 

•IMP 

INSR1 



133.9 

0RFC 

0RFE 

Cl 60 
0116 *** 

EXTINS MOV 

QCHFLG, 5 



134© 

0B00 

1303 

JEQ 

$+8 



1341 

0B02 

C2E0 

MOV 

©SflVRTN, RTN 

GET RETURN RDDR 



0B04 

0154 •* 





1342 

0B06 

045B 

B 

*RTN 

GO BACK TO CHANGE 


1343 

0B08 

0380 

RTWP 





REDT 


MIRAS 

90 V2L1 12 : 13 : 11 258776 F'OGE 0041 

EP COMMAND 



94892' 

■ 7 ““990l ; +::+: 


±346 



* TITLE: 

KP 


1347’ 





KEEP 


1348 

- 


* REV I 

SION: 



.13-4.9 





ORIGINAL 


13:50 



* COMPUTER : 

999, ASSEMBLY 


1351 



* ABSTRACT: 

OUTPUTS SPECIFIED NUMBER OF SOURCE LINES 

1352 





BEGINNING WITH 

TOP LINE 

1353: 



* CALL 

ING SEQUENCE: 


1354 





BLWP ®KP 


1355 

0B0FI 

8026 •” 

KP 

DATA 

ROUTRG, #+2 



0B0C 

0B9E **’ 





1356 

0B9E 

06FI0 


BL 

QSKANOP 

GET OPERAND 


0B10 

0580 





1357 

0B12 

1012 


JMP 

DFLT 

DEFAULT KEEP COUNT 

1358 

0B14 

C94.1 

KP2 

MOV 

UDCNT, UDCNT OPERAND ZERO? 

1359 

0B1.6 

1602 


JNE 

#4-6 

NO 

1360 

0B18 

0460 


B 

OOPNERR 

YES 


0B1A 

03E0 •" 





1 36:1 

0B1C 

C::LD0 


MOV 

•+DUMNXT, TMLOC 


1 3 6 .3 

0B1E 

1602 


JNE 

6 


1363 

0B20 

0460 


B • 

@M EMPTY 

NOTHING TO SAVE 


0B22 

03ER "* 





1364 

0B24 

0600 

KEEP! 

BL 

©SCROLL 

KEEP TOP LINE 


0B26 

0DCE 





1365 

0B2S 

0601 


DEC 

UDCNT 

FINISHED? 

1366 

0B2R 

1309 


JEQ 

MQEXT 

YES 

1367 

0B2C 

C1E0 


MOV 

0NXTL.AD, TMLOC 

GET POINTER TO 


0B2E 

014E- 





1368 

0B30 

1602 


JNE 

$•+•6 

NEXT LINE 

13 69 

0B32 

0460 


B 

0LSTLIN 

THERE IS NONE 


0B34 

03CC 





1370 

0B36 

IkJF 6 


JMP 

KEEP! 

PROCESS NEXT LINE 

1 s »*' 1 

0638 

C060 

DFLT 

MOV 

0LLIMIT, UDCNT 



0B3R 

0:182 **' 





1.3 r c:! 

0B3C 

10EB 


JMP 

KP2 


13, -’3 

0B3E 

0600 

i v IO EXT 

BL 

0SQUEE2 

SQUEEZE UP BUFFER 


0B40 

0488 *" 





1374 

0B42 

0380 


RTWP 





PAGE 0043 


RED 1 

Vfc L.:Uf v ij v fhML-‘ 

1405 

1406 

1407 
1468 
:14©9 
1418 

1411 

1412 
14X4 
1414 
14X5 

ri J. R A990 V2L1 12:13:11 258/76 PAGE 0043 

9 4 8 9 2 7 - 9 9 0 1 : + : : + : 

T I TLE : MV 

* MOVE COMMAND 

* REVISION: 

* ORIGINAL 

* COMPUTER: 990, ASSEMBLY 

* ABSTRACT: MOVES ONE OR MORE SOURCE LINES 

* TO ANOTHER LOCATION IN BUFFER 

* CALLING SEQUENCE: 

* BLWP ©MV 

* STATISTICS: LINES ARE NOT PHVSICALLV MOVED, THE 

+ APPROPRIATE POINTERS ARE CHANGED 

14:1b 

UB 8 S 

0B8A 

0026 " 
0B8C •" 

MV 

DATA 

ROUTRG, *+2 


X4X 

0886 

UddL 

06 R 8 

LI D 9 Li ' 


BL 

©EXOP 

GET FIRST OPERAND 

i 410 

0 b 90 

**::* ir:; 9 x 

LO 0 X 
LLLDbl * 


nov 

UDCNT, ©LML 

SAVE LINE-NO OF LAST MOVED LINE 

14X9 

tn> 4 

LI Lb 


nuv 

CLLOC, TMLOC 

ASSUME NO SECOND OPREAND 

14X0 

yb 9 h;, 
0 E> «:::< 

0286 

000 L.*' 


6 J. 

12, >0D 

CARR A I GE RETURN? 

4 X 1L 

0b9M 

lx 0 b. 


J'EQ 

MV1 

IF VES, USE POINTER 

.1 4 X X 

0 b 9b 
Lib 9 b. 

0026 


6 j: 

12, >2C 

COMMA? 

I4;i4 

14,14 

fcJCSI-lfcl 

0BH2 

0BH4 

.1649 
C807 
012 ft ’■ 


J NE 
MOV 

EREXMV 

TMLOC, ©MALIN 

MO ERROR 

14;:::! 5 

08M6 

08H8 

680.1. 

0178 


MOV 

UDCNT, ©MVRCNT SAVE UP-DOWN COUNT 

:l4x*6 

Lib'NH 
0 b ML- 

Li 6 ft © 

0500 •" 


BL 

©SKANOP 

GET SECOND OPERAND 

iH-ci’d 

08Mb. 
bibb b 
0 b bX 

1006 

6801 

011 b 


JMP 

MOV 

MV1+4 

UDCNT, ©NUMB 

NO NUMBER USE POINTER 

1429 

0884 

UDDD 

06ft 0 
0484 • 


BL 

©FLIN 

FIND ADDR OF LINE AFTER 

X4J>0 

0 bb 8 
0 b b fl 

L-60 r* 
0111*1 • 

ft VI 

MOV 

TMLOC, ©MALIN 

WHICH LINES ARE TO BE MOVED 

X 4 x x 

0 b bb 

L* ..L 4 


nu v 

r l. l i*l i 9.* O 

RIND ADDR OF LINE ABOVE STRNG TO B 


L.» t... 

00 b D 


INC 1 

5 

SAME AS LINE AFTER WHICH 

.x. "T 

K! C~* l.„. 



L- 

•to, OMAL I N 

STRING IS TO BE MOVED? 

,j.. -r ...;■ -r 

r 

mI« S' *«.' 


J b.b! 

tXTMV 

VES, NO MOVE. REQ-'D 

JL, -f •-.» 

£.1 o L.< O 

UjUJ 


l*!UV 

: + : D.* 10 

NO 

J.. 4 X O 

0DL-O 

0bbH 

bib Li 
01 2H ‘ 


MOV 

©MALIN, 5 

FIND ADDR OF LINE THAT FOLLOWS 

14 1 e 
14..::-::; 

0 bL-b 
Lib L b 
0 bL’Li 

08 P 2 

0220 

0004 

0126 " 


Hi 

MOV 

5, 4 

+ : 5, ©LAMOV 

STRING TO BE MOVED 

1419 

08L‘4 

6164 


MOV 

PL I MTS, TMLOC 

FIND END OF STRING TO BE MOVED 

14 4L* 

bbUb 

880 i*' 

0iin 

PIV4 

6 

TMLOC, ©MALIN 

ERROR IF MOVENG STRING AFTER 

..L 4 4 _L 

west'll 

1126 


-JEQ 

EREXMV 

ONE OF ITS MEMBERS 

1442 

bb 06 

6160 


MOV 

©ABRLFG, 5 

ABLOLUTE OR 


PAGE 0044 


KfrJj l 


MIRAS: 

30 V2 

LI 12 

: 13 : 11 258 

/?6 PAGE 0044 

Vb. U 

JhlMHNL* 



948.927 

'~9SQ±** 

* 

144! 

0BDE 

0BE0 

01.1C •' 
.1.609 


•JNE 

MVS 

RELATIVE? 

1444 

0062 

8817 


c 

*TMLOC, ®LML 

END FOUND? 


0BE4 

015FI •" 





144D 

Wbt 6 

1309 


JEQ 

MVS 

VES 

1.446 

0BE8 

8227 

MV 7 

fll 

TMLOC, 4 



066 H 

0004 





144 

0BEC 

C1D7 


MOV 

♦TMLOC, TMLOC 


1448 

0BEE 

161 - s 


JN6 

MV 4 


1449 

0BF0 

0460 


B 

©NOTFND 



0BF2 

03 F 4 * 





1458 

0BF4 

C f 11“ iiT 

0620 

MVS 

DEC 

0MVRCNT 


1451. 

0BF8 

UX » o 
16F7 


JNE 

MV7 


1.452 

8BFR 

C307 

MV 6 

MOV 

TMLOC, 12 

SAVE RDDR OF LINE AT END OF M 

140! 

06h C 

0227 


RI 

TMLOC, 4 

GET RDDR OF LINE FOLLOWING 


0fc!Fb 

0004 





1404 

01.; 08 

C157 


MOV 

*TMLOC, 5 

THE STRING TO BE MOVED 

LI..4 J Z> 

WL- O! 

110! 


JEQ 

MVSfi 

LINK THE LINES PRECEEDING 

1 400 

0L-04 

0060 


iNLl 

o 

AND FOLLOWING 

;.L40 r' 


0O4H 


MOV’ 

10, +5 

THE MOVED 

1458 

@C08 

0645 


DECT 

5 

STRING 

1453 

0C8R 

022R 

MV6fi 

RI 

10, 4 



0C0C 

0004 





1. 4 6 8 

0C0E 

CSS 5 


MOV 

5, *10 


146.1 

0C10 

05C3 


I NCI 

PL I MTS 

LINK TOP OF MOVED STRING 

1 4b! 

0C12 

C1E0 


MOV 

0MALIN, TMLOC 

TO THE LINE AFTER 


0C14 

012R •" 





1463 

8C16 

C4C7 


MOV 

TMLOC, ♦PL I MTS 

WHICH IT 

1464 

0i;i6 

0227 


RI 

TMLOC, 4 

WAS TO BE MOVED 


0C1R 

0004 





1465 

0C1C 

0643 


DECT 

PL I MTS 

BE MOVED 

1466 

0C1E 

C5C3 


MOV 

PL I MTS, * TMLOC 


1467’ 

0C20 

Cl 69 


MOV 

©LOMOV, 5 

LINK BOTTOM OF THE MOVED S' 


0Q22 

012C 





1466 

0C24 

1303 


JEQ 

MV6B 

TO THE LINE FOLLOWING 

1463 

0U26 

05C5 


INCT 

er 

THE LINE AFTER 

14 fO 

0626 

U04C 


MOV 

12, *5 

WHICH THE STRING 

14 * 1 

002H 

0645 


DECT 

5 

WAS TO BE 

1472 

0C2C 

0C2E 

022C 

0004 

MV6B 

RI 

12, 4 

MOVED 

1473 

0C30 

C705 


MOV 

5, *12 


1474 

0C32 

0380 

EXTMV 

RTWP 



1475 

0C34 

0460 

EREXM 

V B 

eOPNERR 

ERROR EXIT 


0C36 

03E0 ■" 






M I RFl.990 
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PXREDT 

PRINT COMMAND 


.'2Li 12 : 13 : 11 

9 4 9 9 2 7 — 9 9 0 1 : + ; : + : 


258/76 


1478 

1479 

1480 

1481 

1482 
1487 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1497 


1494 

1495 

1.48b 

1497 

1498 

1499 
1. •::« b 0 

1501 

1502 
±5017 

1504 

1505 

1506 
150 7 

1508 

1509 

1510 

1511 

1512 


0C78 
0O7H 
007 C 
0C76 
0C40 
0C42 

0044 

0C46 
0048 
0C4R 
0C4C 
0C4E 
0050 
0G52 
0054 
00-56 
0058 
00 5H 
01050 
01058 . 
0060 
0082 
010-84 
01088 * 


0026 * 
01070 * 
06fi0 
05901 • 

C287 
06R0 
0068 * 
0820 
011C ■ 
011C • 

0601 

130fl 

C2R0 

0158' 

C29H 

16F4 

0480 
03CC ‘ 
C/H0 
£1146 • 
805H 

0380 


* TITLE: PENT 

* PRINT COMMAND 

* REVISION: 

* ORIGINAL 

* 03/15/76 

* MODIFIED TO RUN WITH PXRMTR 

* COMPUTER: 990, ASSEMBLV 

* ABSTRACT: PRINTS LINES BETWEEN TWO LIMITS OR 

+ RELATIVE TO THE CURRENT LINE POINTER 

* CALLING SEQUENCE: 

* BLWP ©PENT 

PENT DATA EOUTRG, $+2 


BL ©EXOP 

MOV PL I MTS, 10 
PENT 1 BL ©PPL IN 

MOV ©ABRLFG, ©ABRLFG 


JEQ PABS 
DEC UDCNT 
JEQ EXTPRT 

PRNT2 MOV ©SLINPT, 10 

MOV *10, 10 
JNE PENT! 

B ©LSTLIN 

PABS MOV ©LINADR, 10 


EXTRACT OPERANDS 

PRINT THE LINE 
ABSOLUTE OR RELATIVE? 


ABSOLUTE 

ALL LINES PRINTED? 

IF VES EXIT 
DOES NEXT LINE EXIST? 


IF VES PRINT ANOTHER ONE 
NO 


L +10, UDCNT ALL LINES PRINTED? 

JNb PRNT2 NO 

EXTPRT RTWP 

* ROUTINE TO PRINT LINE 

* WORKSPACE ELEMENT 10 CONTAINS ADDR OF LINE TO BE PRINTED 

* ROUTINE TO PRINT A LINE 

* IF TAB ENCOUNTERED, SPACES ARE PRINTED 

* TO NEXT TAB POSITION 

* LINE NUMBERS ARE PRINTED AS NEEDED 

* R10 CONTAINS ADDR OF LINE TO BE PRINTED 


10X7 

1514 

01086 

080ln 

KKL. J. N I'lUV 

KIO, ©LINADR 

SAVE 

LINE ADDR 

1515 

058r1 

0585- 

0148 

0118 

HJ. 

RIO, 4 

SAVE 

POINTER 

1518 

85 88 
85 i* 0 

00014 

5801H 

MOV 

R10, ©SLINPT 

TO 

NEXT LINE 

151 1- 
1518 

00 72 
00 74 
010 78 

01158 * 

050-M 

0801H 

INCT 

MOV 

RIO 

R10, ©L INADD 

SAVE 

TEXT POINTER 

1519 

00 78 
015 7H 

01144 - 
0148 

MOV 

RTN, R5 

SAVE 

RETURN 


I‘i J. HH990 


258/76 


PAGE 8046 


rrtRCL' 1 

PRINT COMMAND 


V2L1 12 : 13 : 11 
948927-9901*+ 



1520 

0u 

06H0 


BL 

0BDPRNT 

PUT LINE NO 


HL r- 1:::. 

WUh 4 





X-JciX 




MOV 

0L I NRDD, R9 

COPV ONE TEXT CHRP 



0144 " 





1D.-2 

ttMJb'4 

P339 

BLDl 

MOVE! 

+R9+,. R12 

GET CHRR 

±523 

0C86 

98 0C 


CB 

R12.» 0TRB 

TRB? 


0C88 

0198 •' 





1524 

0C8fl 

1320 


JEQ 

PRTB 

VES 

1525 

0C8C 

98 0C 


CB 

R12, OCR 

CRRRIRGE RETURN? 


0C8E 

0185 -* 





1526 

0C90 

1310 


JEQ 

BLD3 

VES 

152 ? 

0C92 

DR8C 


MOVB 

R12, OPBUF < R10 > 

MOVE ONE CHRR INTO BUFFER 


0C94 

00C2 •** 





1528 

0096 

85R0 


INC 

OPRTPOS 

I NCR PRINT POSITION 


0C98 

0188 -■ 





±529 

0C9fl 

058R 

BLD1R 

INC 

R10 

I NCR BUFF PTR 

1530 

0C9C 

C2CR 


MOV 

Hov 

R10, Rll 

SAVE CHRR COUNT 

1531 

0C9E 

C820 


OPLFLG, OPLFLG 

LINE NOS BEING PRINTED? 


8CR0 

011R 






0CR2 

81.18 





1532 

0CR4 

1302 


JEQ 

BLD2 

NO 

1533 

0CR6 

022B 


RI 

Rll, 6 

ADJUST FOR THEM 


0CR8 

0006 





1534 

0CRR 

880B 

BLD2 

0 

Rll, 0PMRGIN 

CHECK PRINT MARGIN 


0CRC 

0.132 " 





1535 

0CRE 

1.2ER 


JLE 

BLDl 

TRANSFER ANOTHER CHAR 

1.536 

0CB0 

0b 0R 


DEC 

R10 

DECREMENT POINTER 

1537 

0CB2 

DRR0 

BLD3 

MOVB 

QLF, OPBUF < R10 > 

TERM WITH LF/CR 


0CB4 

0184 






0CB6 

00C2 •'* 





1538 

0CB8 

DRR0 


MOVB 

OCR, OPBUF+l < R10 > 



0CBR 

0185" 






0CBC 

0003 





1539 

0CBE 

C2R0 


MOV 

0PBUFR, R10 

BUFFER RDDR FOR PRINT 


0CC0 

0000 





1540 

0CC2 

8420 


BLWP 

OPR I NT 



0CC4 

0FEC *'■ 





1541 

0CC6 

04E8 


CLR 

OPRTPOS 

REINIT PRINT POSITION 


0CC8 

0188 " 





1542 

0CCR 

8455 


B 

+R5 

RETURN 

1543 

0CCC 

8400 

PRTB 

CLR 

R12 

INSERT SPACES TO NEXT TAB 

1544 

0CCE 

8820 

PRTBi 

C 

OPRTPOS, 0TRBSCR12 

!> FIND TAB GREATER THAN 


0CD0 

8188 






0CD2 

818R ■" 





1.545 

0CD4 

1104 


JLT 

PRTSP 

CURRENT PRINT POSITION 

1.546 

0CD6 

0500 


INCT 

R12 

I NCR TAB BUFF INDEX 

1547 

0CD8 

0280 


Cl 

R12, 8 

UP TO 4 TABS ALLOWED 


0CDR 

0008 





1548 

0CDC 

16F8 


•JNE 

PRTBI 


1549 

0CDE 

DRR8 

PRTSP 

MOVB 

OSP, OPBUF <: R10 

FOUND, INSERT SPACES 


0CE0 0186 
0CE2 00C2 ”■ 


1550 0CE4 05R0 INC OPRTPOS I NCR PRINT POSITION 

0CE6 0188 - 

1551 0CE8 8B20 C OPRTPOS, OTABS < R12 > 


UNTIL TAB STOP PERCHED 


(>' 






r:r::.L-‘ i 


MIRAS 

•90 V2L1 1 

2 : l.;i- .* 11 2 5 8 »■’ 6« 

I NT C 

OM M AND 


94892 

7~9901 : + ;: + : 


0CEF! 

01.88 




OCEC 

01 8 H ■*’ 



1.552 

0CEE 

14D5 

JHE 

BLD1A 


0CF0 

05 8 fl 

INC 

R10 

1554 

0CF2 

10F5 

•JMP 

F'RTSP 

±555 



* CONVERT BINARY LINE NUMBER 

;1 ::;i 8 

0CF4 

C2R8 

BDF'RNT MOV 

0PLFLG, 10 


0CF6 

011 A" 



1557 

0CF8 

04CA 

CLR 

10 

1558 

0CFA 

1 S 2 f* 

JEQ 

EXTBPl E 

155.9 

0CFC 

C2R0 

MOV 

0LINADR, 10 


OCFE 

0146" 



1560 

0 D 0 0 

C25R 

MOV 

*10, 9 WAS 

±56:1. 

0D02 

1112 

■JLT 

PUTSPS 

1.565 



* CONVERT 

BINARY NUMBER IN R 

1564 





1565 



CONVRT 


1.566 

0D04 

020C 

LI 

R12, 4 

1567 



CNVRT 


1.568 

0D03 

0289 

MOV 

R 9 .« klw 

1569 

0D0R 

0409 

CLR 

R9 

1578 

0D0C 

7E60 

D I V 

©TEN, R9 

1571 

':J L-* Pi l!” 

0D1.0 

hj „L i *_.• 

0B8A 

SRC 

R10.i Q 

.1. 5 7 2 

0D12 

DB0R 

MOVE: 

RIO, 0PBUF < 12 > 


8D1.4 

0002 ■' 



1577 

0D16 

BB20 

RB 

0B I NASC, 0PBUF < R12 


0D18 

0194 •* 




0D.1A 

000-2 - 



1574 

0D1C 

0600 

DEC 

R12 

1575 

0D1E 

15F4 

JGT 

CNVRT 

1.576 

0D2O 

D820 

MOVE: 

0sp.« 0RBUF 


0D22 

0186 *' 




0D24 

000:2 •' 



1577 

0D26 

1007 

JMP 

EXTBDP 

1578 



pijTSPS 


157.9 

0D28 

02©fl 

LI 

RIO, 4 


0D2A 

0004 



1580 



F'TSF'l 


1581. 

0D2C 

DRR0 

MOVE: 

@sp, 0pbuf<:ri0> 


0D2E 

0186 •' 




8D.30 

0002 



1582 

0D32 

060R 

DEC 

R10 

1583 

0D34 

18 FB 

JOC 

F'TSF'l 

1584 



EXTBDP 


cr ,™, nr 

0D36 

D828 

MOVE: 

@SP, 0PBUF+5 


0D38 

0186" 




0D3A 

0007 



1586 

0D3C 

D820 

■ MOVE: 

@ U R .* 0 F* E: IJF+6 


0D3E 

0185 •' 




©D40 

0008 



1587 

0 D 4 2 

C2R8 

MOV 

0PBUFA, R10 


0D44 

0000 •' 




PAGE 0047 


GO CHECK PRINT LIMITS 
UP TO NEXT TAB STOP 


BINARY NUMBER RIGHT 
JUSTIFIED IN R9 &. RIO 


LEFT JUSTIFY CHAR 
STORE CHAR- 


FIRST CHAR IS SPACE 


PUT SPACES FOR LINE NUMBER 


SET UP BUFFER ADDR 


p XRED T 
PR TNT 





MIRA990 V2L.1 12 : is : li 258/76 PAGE 0048 

UuM! v IFlND 9 4 8 .9 2 . ?' •" .9 9 0 1 ; + : -+•■ 

9D46 0420 BLWP 0PRINTN PRINT LINE 

0D4« WF F0 " 

EXTBP1 

0D4A 04CR CLR R10 

9D4C 045B B *RTN 


F'KREPT MIRfii 

OUI T COMMAND 


.90 V2L1 12 : 12 : 11 
9 4 89 2 7 — 9901+ + 


PAGE 8049 


|1596 

1598 

15.99 

1600 

1601 

1602 

1.603 

1.604 
1605 
±606 

1.609 

16:10 

1611 

1612 

1614 

16:15 


* TITLE: QT 

* QUIT COMMAND 

* REV I S I ON : 

* ORIGINAL 

* COMPUTER : 990, 990 ASSEMBLV 

* ABSTRACT. TERMINATES THE EDIT PROCESS AFTER COPYING 

* THE REMAINDER OF THE SPECIFIED DATA ONTO THE 

* OUTPUT FILE. 


:+: 

:+: 

:+: 

:+: 

:+: 

.+ 

:+: 

:+: 

:+• 

:+: 

:+: 

* CALI 


161 6 

0D4E 

0026 


0D50 

0D52 

1617 

0D52 

04E0 


0D54 

01 4 C 

i 61 8 

0D56 

0600 


0D58 

0500 

V’l 9 

8D5R 

1.00F 

>1620 

0D5C 

C241 

1621. 

0D5E 

1603 

1622 

0D60 

0500 


0D62 

0114 

1623 

0Db4 

100 A 

1.624 



1625 

0D66 

C809 


0D68 

01 3 C 

1626 

0D6A 

0707 

1627 

0D6C 

8809 


0D6E 

01 5C 

1 62$ 

0D70 

1502 

1629 

0D72 

0600 


0D74 

04 E 4 

1630 

0D76 

C807 


0D78 

014C 

1621 

8D7A 

C1D0 

1632 

0D7C 

168B 

1633 

0D7E 

C320 


0D80 

0114 

1634 

0D82 

1611 

1635 

0D84 

C860 


y D $ i~» 

0150 

1. b ...*•• b 

0D88 

8221 


0D8A 

0000 


Q COPIES REMAINDER OF BUFFER AND INPUT 
SOURCE FILE TO OUTPUT FILE 
Q<S> COPIES REMAINDER OF BUFFER AND INPUT 
SOURCE FILE TO LINE NUMBER <S> TO 
OUTPUT FILE. 

Q 0 COPIES REMAINDER OF BUFFER TO OUTPUT FIL 

THE FLAG EXTFLG IS SET TO INDICATE TO THE MAIN 
ROUTINE TO WRITE AN END OF FILE RECORD AND 
RESTART THE EDITOR. 

ING SEQUENCE: 

■ BLWP §QT 

DATA ROUTRG, $+2 

CLR 0FINLAD ASSUME NO OPERAND 

BL 0SKANOP GET OPERAND IF ANY 


JMP QT2 
MOV UDCNT , 9 
JNE QT0 
INC 0EOFL.G 

JMP QT2 

MOV 9, ©NUMB 

SETO TMLOC I 

C 9, 0MAXLIN. 

JGT QT1 
BL 0FLIN 

MOV TMLOC, 0FINLAD 


ASSUME NO OPERAND 

GET OPERAND IF ANY 

NONE, SAVE EVERYTHING. 

IS IT ZERO 
NO 

YES, SET UP FOR LAST LINE 


ASSUME LINE NOT IN BUFFER 

HAS THE LINE BEEN IN CORE? 


SEE IF IT IS STILL THERE. 


MOV +DUMNXT, TMLOC IS MEMORY EMPTY? 

JNE QT3 NO 

MOV 0EOFLG, 12 YES, END OF FILE SET. 


JNE QT5 

•MOV 0MAXLIN, UDCNT 
A I UDCNT, 10 


IF YES, LINE NOT FOUND 


258/76 


PAGE 0050 


QUIT CO 

MMftND 


94892. 

? --9901** 

s 

1621* 


06R0 

BL- 

©INSOU 

BRING IN TEN LINES 

| 1628 

>:..i U o i". 

0D90 

fc.1 f feJo 
1000 

IMP 

$+2 

EOF EXIT 

±£29 

0D92 

10F3 

JMP 

QT2 


±640 

0D94 

0D96 

06R0 

0DCE 

QT3 BL 

©SCROLL 

SCROLL TOP LINE 

±641 

0D9S 

0D9fl 

C320 

014C 

MOV 

©FI ML AD, 12 

CHECK FLAG 

1 6 '4 

0D9C 

.130 Ei 

JEQ 

SRVALL 

SCROLL EVERYTHING 

.1.643 

©D9E 

1.1.10 

•JLT 

QT4 

LOOK AT CURNO 

1644 

0DR8 

808C 

c 

12, LI NAD 

LAST LINE GONE? 

1645 

0DFI2 

131.2 

JEQ 

EXT QT 

YES 

1646 

0DA4 

10ER 

JMP 

QT2 


16 47' 

0DRS 

8DR8 

C320 
014 C" 

QT5 MOV 

©FINLAD, 12 

SAVE ALL? 

1643 

SDflfl 

130E 

JEQ 

EXTQT 

YES 

1649 

i 

0DAC 

©DBF 

06R0 

02CE 

BL 

©MSGGUT 

NO 

1 658 

0DB0 

0010 

DATA 

16 

LAST LINE 

165:1 

0DB2 

100 A 

JMP 

EXTQT 


1652 

0DB4 

C1.D0 

SRVflLL MOV 

+DUMNXT, TMLOC 

IS MEMORY EMPTY? 

1653 

8DB6 

16 EE 

•JNE 

QT3 

NO, SCROLL OUT' MORE. 

.1.. f;;;i :”'i 4 

0DB8 

ODfort 

C320 

0114" 

MOV 

©EOFLG, 12 

END OF FILE FOUND 

1655 

ODBC 

13DE 

JEQ 

QT2 

NO, SCROLL OUT MORE. 

1656 

0DBE 

1004 

•JMP 

EXTQT 

YES 

1657 

|f»V 

0DC0 

0DC2 

0DC4 

8820 
0-| 50 ■" 
0:0 0“' 

QT 4 C 

©CURNO, ©NUMB 

LAST LINE OUT? 

U 1653 

0DC6 

1SD9 

JNE 

QT2 

IF NO, SCROLL OUT MORE 

165.9 

1668 

0DC8 

0DCFI 

0DCC 

0720 
8118 x 
0380 

EXTQT SETO 
RTWP 

0EXTFLQ 

YES, SET QUIT FLAG >& EXIT 


o 



M I RA9 

90 

V2L1. 1c 

: 13 : 11. 258/ 

76 PAGE 005.1 

i‘"4 D k i 

RL I N 


94892'; 

'-9 9 01^* 




>\< 

TITLE : 

SCROLL/KLRL I N 




r- 


SCROLL LINE FROM MEMORY/CLEAR LINE HEADER 



:+: 

REVISION : 







ORIGINAL 




:+: 


03/15/76 






MODIFIED TO RUN WITH PXRMTR 



•+: 

COMPUTER : 

990, ASSEMBLY 




* 

ABSTRACT : 

SCROLL WILL SC 

ROLL A LINE OUT OF MEMORY, 





TMLOC CONTAINS 

ADDR OF LINE TO BE SCROLLED 



:+: 


SCROLL FALLS THROUGH TO KLRLIN. 





KLRLIN CLEARS 

THE HEADER OF THE LINE WHOSE 





ADDRESS IS IN 

REGISTER 5. 




CALLING SEQUENCE: 






BL ©SCROLL 




* 


BL ©KLRLIN 




s 

TROLL 



0DCE 

C287 


MOV 

TMLOC, RIO 

SET BUFFER ADDR FOR OUTPUT 

ODDS 

022R 


AI 

RIO, 6 

I NCR PAST HEADER INFO 

0DD2 

0006 





0DD4 

0420 


BL.I4P 

©WRITE 

WRITE IT OUT 

0DD6 

0FE0 •" 





0DD8 

1.309 


JEQ 

SCRO 

IF NO ERROR ‘ 

0DD Ff 

020 fl 


LI 

RIO, MSG14 

PRINT RDV OBJ-TVPE CR 

0DDC 

03BA " 





8DDE 

0420 


BLUR 

©PRINTN 


0DE0 

0FF0 •' 





6DE2 

C2R© 


MOV 

©F'BUFA, RIO 

INPUT RESPONSE 

0DE4 

0 0 C 0 •’ 





0DE 6 

0420 


BLWP 

©KEVIN 


ODES 

0FR4 •" 





ODEA 

10F1 


JMP 

SCROLL 

CONTINUE 



cr 

I:R0 



0DEC 

L:0o 7 


MOV 

TMLOC, LI NAD 

ADDR OF LINE TO BE MOVED OUT 

0DEE 

C327 


MOV 

*TMLOC+.. 0CURNO 

CURRENT LINE NUMBER 

0DF 0 

015©*' 



. 


0DF2 

Pi I"', P ,1 

C807 

Ci -1 c::; 


MOV 

TMLOC, ©PRLAD 

PREVIOUS LINE POINTER 

0DF6 

05 C 7 


INCT 

TMLOC 


0DF8 

C817 


MOV 

* TMLOC, ©NXTLAD 

ADDR OF NEXT LINE 

0DFR 

014 E 





0DFC 

C 417 


MOV 

+ TMLOC, *DUMNXT 

IS THERE A NEXT LINE? 

0DFE 

1205 


JEQ 

SCR1 

YES 

0E00 

C257 


MOV 

+ TMLOC, 9 


0E02 

05 C 9 


INCT 

9 


0E04 

C660 


MOV 

©ANCHOR, : + : 9 


0E06 

01.7E-* 





0E08 

1004 


JMP 

SCR 2 


8E0FI 

Cl 20 

c 

CR1 MOV 

©INTLF'T, LINF'TR 

RESET LINE POINTER TO TOP 

0E0C 

0180 





0E0E 

0224 


AI 

LINF'TR, 4 


0E10 

8004 





0E12 

05C7 


CR2 INCT 

TMLOC 


0E14 

Cl 42 


MOV 

LI NAD, 5 

SAVE ADDR OF LINE 






o 



?*! rsn.rr 

::x »:.7 ••7 !.... *JL. 

: ii : Xl 238776 FFIGE 0052 

FNC K! 

-RLIN 

94 8S 

27-9991** 




■+•• THIS R 

OUT I ME CLEARS THE HEADER OF THE LINE WHOSE 

.-•'vJt:. 

70 ; ;;! 


■•+• HDDR 

IS IN ELEMENT 5 


70© 0E1.6' 

0775 

KLRLIN SET 

0 +5+ 

REPLACE LINE NUMBER WITH 

0:1 wE.1.8 

04F5 

CLR 

*3* 

REPLACE POINTERS 

t’ 10 0b.:lH 

«4D5 

CLR 

*5 

WITH ZERO 

1.1 h£ 1C 

8 c:! 20 

C 

eciJRNO, CLINNO 

HAS LINE AT POINTER BEEN 

0F1 F 

0:150 ' 



712 0F20 

1604 

JNE 

EXT SCR 

NO 

E:ll 0E22 

C1D0 

MOV 

: + : DUMNXT, TMLOC 

VES, SET POINTERS. 

.-14 0E.24 

1703 

•JEQ 

bCR3 

MEMORV EMPTV? 

2'; 1.5 0E26 

CIS? 

MOV 

TMLOC.. CLLOC NO 

716 0E28 

C217 

SCR 4 MOV 

+ : TMLOC, CLINNO 


71.7 0E2R 

04 5 B 

EX 7 SCR B 

*RTN 

EXIT SCROLL 

7 : 1.3 0E2C 

C:lM0 

SCR3 MOV 

©ANCHOR, CLLOC 

VES 

0E2E 

01 7E •* 




71.9 0F7h 

C207 

MOV 

TMLOC, CL I NNO 


770 0E72 

10FB 

•IMP 

EXTSCR 



o 



258/76 
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v> 


r--. r:.:. j / t 


1*1 1 V2L 

x x 

MOVE 

COMMANC 

* 


94892 

17/2 

©E86 

Cl 68 

RMV2 

MOV 


0E88 

01 4 E -• 



±763 

0E8A 

C405 


MOV 

1764 

0ESC 

16F6 


JNE 

1765 

0E8E 

C142 

CLRLIN 

MOV 

1766 

0E98 

06R0 


BL 


0E92 

0E1.6 



1 767 

0E94 

Cl 60 


MOV 


0E96 

011C •" 



1768 

0E98 

1604 


JNE 

1769 

0E9A 

8060 


c 


0E9C 

0150-' 



1778 

0E9E 

1603 


JNE 

1.77:1 

0EA0 

1007 


IMP 

1772 

0EA2 

0601 

RELRMV 

DEC 

*| T* “*■' 

0EA4 

1385 


•JEQ 

1774 

0EA6 

C0E0 

REXB 

MOV 


0EA8 

01 4 E *" 



1775 

0EAA 

1601 


JNE 

1776 

0EAC 

0460 


E! 


0EAE 

03CC *" 


• ■ 

1 c‘ f r" 

0EB0 

Cl. 60 

EXTRMV 

MOV 


0EB2 

0:116*" 



1 t 6 

0EB4 

1601 


JNE 

1. 7 79 

0EB6 

0380 


RTWP 

1780 

0EB8 

C2E0 

CHRET 

MOV 


0EBA 

0154" 



178:1 

0EBC 

04 5 B 


B 


2:13: 11 
7-9901** 

0NXTLAD, 5 

5, *DUMNXT 
RMV4 
LI NAD, 5 
0KLRL I N 

0ABRLFG, 5 

RELRMV 
0CURNO, UDCNT 

REXB 

EXTRMV 

UDCNT 

EXTRMV 

0NXTL.AD, PL I MTS 

RMV1 

0LSTLIN 

0CHFLG, 5 

CHRET 

0SAVRTN, RTN 
+RTN 


CLEAR THE LINE 
RELATIVE OR ABSOLUTE? 
RELATIVE 

LAST LINE REMOVED? 

NO 

VES 

GET POINTER 

TO NEXT LINE 
THERE IS NONE 

CALLED BV CHANGE? 


RETURN TO 
CHANGE 


PK’REDT 


MIRA990 


■*£Li 


12:13: 11 


258/76 


PAGE 0055 


:tup command 



94892 

7-9901** 





* TITLE: 

STP 


‘P.!=i 

l i/“* “* 



'¥ 


SETUP COMMANDS 


T786 



* REV 

IS ION: 



1787 





ORIGINAL 


1788 



* COMPUTER: 

990.- ASSEMBLY 


1789 



* ftBS 

TRACT : 

SETS UP PRINT LIMITS, FIND MARGIN, 

1790 





PRINT LINE NUMBERS, AND PRINT NO 

1791 





LINE NUMBERS. 


1792 



* CALLING S 

EQUENCE : 


1793 



:+s 


BLWP 0STP 


1794 

0EBE 

0826 

STP 

DATA 

ROUTRG, $+2 



0EC0 

0EC2 *’* 





1795 

0EC2 

86R0 


BL 

0NUMEXT 



0EC4 

8526 





1796 

0EC6 

02SC 


Cl 

12, - L - 



0EC8 

004C 





1797 

0ECA 

1310 


JEQ 

SLIN 

SET PRINT LINE NUMBER FLAG 

1798 

0ECC 

028C 


Cl 

12, -P-- 



0ECE 

0050 





1799 

0ED0 

1312 


JEQ 

SPLIM 

SET UP PRINT MARGINS 

1800 

0ED2 

02 SC 


Cl 

12, - N - 



0ED4 

004E 





1801 

6ED6 

1305 


JEQ 

SNLIN 

SETUP TO NOT PRINT LINE NUMBER 

1882 

0ED8 

828C 


Cl 

12, - M-' 



0EDA 

004D 





1S03 

0EDC 

131fi 


JEQ 

SMARG 

SET FIND MARGIN 

^4? 104 

0EDE 

8460 


B 

0OPNERR 

ANYTHING ELSE ILLEGAL 


0EE0 

83E0 ** 





fcsfi-sop; 

0EE2 

06R0 

SNLIN 

BL 

QSKANTM 

CLEAR PRINT- 


0EE4 

051ft"* 





1806 

0EE6 

04E0 


CLR 

0PLFLG 

LINE-NUMBER 


0EE8 

011FT* 





1807 

0EEA 

1026 


JMP 

EXT STP 

FLAG 

1808 

0EEC 

06H0 

SLIN 

BL 

QSKANTM 

SET PRINT- 


0EEE 

051ft"* 





1809 

0EF0 

0720 


SETO 

QPLFLG 

LINE-NUMBER 


0EF2 

011ft"* 





1810 

0EF4 

1021 


JMP 

EXTSTP 

FLAG- 

1811 

0EF 6 

C1E0 

SPLIM 

MOV 

0MARGLM+2, TMLOC 



0EF8 

0130 "* 





1812 

0EFA 

8 6ft0 


BL 

0 SKA NOP 

GET NO OF CHARS TO PRINT 


0EFC 

0500 "* 





1813 

0EFE 

C047 


MOV 

TMLOC, IJDCNT 


1814 

0F00 

8281 


Cl 

UDCNT, 18 



0F02 

000ft 





1815 

0F 04 

111ft 


JLT 

ERE/ST 

TOO SMALL 

1816 

0F06 

8281 


Cl 

UDCNT, 80 



0F08 

0050 





1817 

0F0A 

1517 


JGT 

EREKST 

TOO LARGE 

1818 

0F0C 

C801 


MOV 

UDCNT, 0PMRGIN 

SAVE CHAR COUNT 


WF WE 

0132” 





1819 

0F10 

1013 


JMP 

EXT STP 


1820 

0F12 

06ft0 

SMARG 

BL 

0SKANOP 

GET LOW MARGIN 


0F14 

0500 






: v : ,r:£L> V 


1*1 i Kh9 

vxL.x -Lx ! xx ; xx r 

6 Phbii 

SETUP COMMAND 


948927-99Q1** 

i 


1821 

©F16 

1013 

JMP 

MDFLT 


1822 

0F18 

C801 

MOV 

IJDCNT, 0LOMRG 

ZERO NOT 


0F1R 

0134 •- 




€>23 

0F1C 

130E 

JEQ 

EREXST 

ALLOWED 

1824 

0F1E 

028C 

Cl 

12, 

COMMA IS THE ONLV 


0F20 

082C 




1825 

WF22 

160B 

JNE 

EREXST 

VALID DELIMETER 

1826 

©F24 

06F 10 

BL 

0NUMEXT 

GET HIGH MARGIN 


8F26 

0526 ■' 




1827 

0F28 

Cl 60 

MOV 

0NUMBF, 5 



0F2A 

013 A-' 




•1 © oo 

0F2C 

1306 

JEQ 

EREXST 

NO NUMBER 

1829 

0F2E 

C801 

MOV 

IJDCNT, 0HIMRG 

SAVE HIMRG 


0F30 

0136 •- 




1839 

0F32 

8060 

C 

0LOMRG, IJDCNT 



0F34 

0134-' 




1831 

0F36 

1401 

JHE 

EREXST 

LOMRG >= HIMRG. 

1832 

0F38 

0380 

EXTSTP RTWP 



1833 

0F3A 

046£i 

EREXST B 

OOPNERR 



0F3C 

03E0 •" 




1834 

0F3E 

C820 

MDFLT MOV 

0MARGLM, 0LOMRG 

DEFAULT - LEFT MARGIN = 1 


0F40 

012E 





0F42 

0134" 




1835 

0F44 

C820 

MOV 

0MARGLM+2, 0HIMRG RIGHT MARGIN * PXR 


WF4fc. 

0130 •" 





0F48 

0136 •" 




1836 

0F4A 

0380 

RTWP 




c 
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TOP COMMAND 948927-9901** 


i ,q~:q 
*«sr “ * 



* 

TITLE: 

TOP 


r40 



* 



TOP COMMAND 


«s©41 



* 

REVISION : 



1842 






ORIGINAL 


1842 



* 

COMPUTER : 

990, ASSEMBLY 


1844 



* 

ABSTRACT : 

MOVE POINTER TO 

FIRST ACTIVE LINE 

1845 



* 



IN BUFFER 


1846 



:+J 

CALLING SEQUENCE: 


1847 



:+: 



BLWP ©TOP 


1848 

0F4C 

0026 

TOP 

DATA 

ROUTRG, $+2 



0F4E 

0F50 






1849 

0F50 

06R0 



BL 

©SKANTM 

CHECK TERM CHAR 


0F52 

051 A' 






1858 

0F54 

C1D0 



MOV 

*DUMNXT, TMLOC 

IS MEMORY EMPTY? 

1851 

0F56 

1202 



JEQ 

TPl 

YES 

1852 

0F58 

C187 



MOV 

TMLOC, CLLOC 

NO, SET POINTERS. 

1852 

0F5R 

C217 



MOV 

♦TMLOC, CLINNO 


1854 

0F5C 

0280 



RTWP 



1855 

0F5E 

C1R0 

TPl 

MOV 

©ANCHOR, CLLOC 



0F60 

017E" 






1856 

y F 

C217 



MOV 

♦TMLOC, CLINNO 


1857 

0F64 

0460 



B 

©MEMPTV 



0F66 

02ER-' 







c 



P/REDT MIRA990 V2L1 12:13:11 258/76 PAGE @858 

I/O ROUTINES 948927-9901** 


I860 



* 




PfSl 




TITLE: 

OPEN 


L-J62 





ASSIGN A DEVICE 

TO A TASK 

1863 



M 

REVISION: 

0 3 / 15/ f* 6 


1864 



:+: 


ORIGINAL 


1865 



* 

COMPUTER : 

990, ASSEMBLY 


1866 




ABSTRACT : 

SETS UP PRB AND 

MAKES SUPERVISOR 

1867 



■¥ 


CALL TO OPEN A 1 

DEVICE 

1868 




CALLING SEQUENCE: 


1869 



■+: 


R10 = LUNO 


1870 





BLWP ©OPEN 


1871 



OPEN 



18 r‘ 2 

0F68 

0040 


DATA 

IOWKS, #+2 

TRANSFER VECTOR 


9F6FI 

0F6C"' 





1873 

WFfcC 

0403 


CLR 

IOPLUN 


1874 

0F6E 

D0E0 


MOVB 

©OPNCOD, IOPLUN 

STORE I/O OP 


0F70 

01 A4 " 





1875 

0F72 

0404 


CLR 

FLGS 

INIT FLAGS 

1876 

0F74 

0402 


CLR 

IOC 

IN IT CODE FOR I/O SUPV CALL 

1877 

0F76 

C30D 


MOV 

R13, R12 

GET CALLER -S WORKSPACE PTR 

1878 

UF78 

0220 


AI 

R12, R10+R10 

INDEX TO CALL PARAMETER 


0F7A 

0014 





1879 

0F7C 

0310 


MOV 

*R12, R12 

GET LUNO 

1880 

0F7E 

E0CC 


SOC 

R12, IOPLUN 

OR LUNO INTO IOPLUN 

1881 

0F80 

2FC2 


SVC 

IOC 


1882 

0F82 

0380 


RTWP 


RETURN 



PXREDT 


MIRA990 

V2L1 12 : 13 : 11 258/76 

PAGE 0059 

I/O ROUTINES 



948927-9901** 


1894 



:4« 

TITLE: 

ENDFIL 


■ l 85 



:+« 


WRITE END OF FILE 

8fo 



:+t 

REVISION: 

03/15/76 


1887 





ORIGINAL 


1888 



* 

COMPUTER : 

990 , ASSEMBLY 


1889 



* 

ABSTRACT : 

SETS UP PRB AND 

MAKES SUPV CALL 

1898 





TO WRITE END OF 

FILE 

1891 



* 

CALLING SEQUENCE: 


1892 





BLWP ©ENDFIL 


1893 



ENDFIL 



1894 

0F84 

0040 


DATA 

I UWkb.- 

TRANSFER VECTOR 


0F86 

0F88 





1895 

0F88 

0402 


CLR 

IOC 

I NIT CODE FOR I/O SUPV CALL 

1896 

0F8R 

C0E0 


MOV 

I3C2LUN0, IOPLUN 

STORE LUNO 


0F8C 

81A0 " 





1897 

0F8E 

D0E0 


Move 

©EOFCOD, IOPLUN 

STORE I/O OP 


0F90 

01 A5 ■" 





1898 

0F92 

0404 


CLR 

FLGS 

I NIT FLAGS 

1899 

0F94 

0407 


CLR 

CHRCNT 

IN IT CHAR CNT TO ZERO 

1900 

WF96 

2FC2 


SVC 

IOC 

MAKE SUPV CALL 

1901 

r 

0F98 

0380 


RTWP 


RETURN 


PXREDT 

I/O ROUTINES 


MIRA990 


258/76 


PAGE 0068 


1902 



1907 

1908 

1909 

1910 

1911 

1912 
1912 

1914 

1915 

1916 

1917 

1918 

1919 


V2L1 12 : 12 : 11 
948927-9901** 


* 

TITLE: 

READ 

* 


READ A RECORD 


REVISION 

02/15/76 

.*+: 


ORIGINAL 


COMPUTER 

990.* ASSEMBLY 


ABSTRACT 

SETS UP PRB AND MAKES SUPV CALL 

* 


TO READ A RECORD 


CALLING i 

SEQUENCE : 

■* 


R10 = BUFFER ADDRESS 

:* 


BLWP OREAD 

:+: 

STATISTIC 

"*cr ■ 

'¥ 


RETURN PARAMETERS : 



R10 = BUFFER ADDR+CHAR COUNT 

* 


R9 = FLAGS 

READ 



0F9A 

0F9C 

004C •" 
0F9E-" 

DATA 

IOWKS, *+2 

TRANSFER VECTOR 

0F9E 

0FA0 

C0E0 

019E"' 

MOV 

OC1LUNO, IOPLUN 

STORE LUNO 

0FA2 

1004 

JMP 

KEVRD 



1920 


P/REDT 


MIRR990 

V2L1 12 

: 13 : 11 258/76 

PAGE 0061 

I/O ROUTINES 



948927-990± ; * : * 






TITLE: 

KEVIN 


(s 22 



* 


KEVBOARD INPUT ROUTINE 

V*$24 



:+: 

REVISION : 

03/15/76 


1925 



:+: 


ORIGINAL 


1926 



•+: 

COMPUTER : 

990, RSSEMBLV 


1927 




RBSTRRCT : 

SETS UP PRB AND MAKES SUPV CALL 

1928 



* 


TO INPUT A RECORD 

FROM KEVBOARD 

1929 




CRLLING SEQUENCE: 


1939 



* 


R10 = BUFFER ADDRESS 

1931 





BLWP ©KEVIN 


1932 



* 

STATISTICS: 


1933 





RETURN PARAMETERS 


1934 





R10 = BUFFER ADDRESS+CHAR COUNT 

1935 



s* 


R9 = FLAGS 


1936 



KEVIN 



1937 

8FA4 

0O4C ' 


DATA 

IOWKS, M+2 

TRANSFER VECTOR 


0FFI6 

0FR8-' 





1938 

0FA8 

C0E0 


MOV 

©KB L UNO, IOPLUN 

STORE LUNO 


0FAA 

019R 





1939 



KEVRD 



1940 

0FAC 

D0C0 


MOVB 

RDCODP, IOPLUN 

STORE I/O OP 

1941 

0FflE 

0300 


MOV 

R13, R12 

GET CALLER'S WORKSPACE PTR 

1942 

0FB0 

0220 


AI 

R12, R10+R10 

INDEX TO CALLING PARAMETERS 


0FB2 

0014 





1943 

0FB4 

CISC 


MOV 

+R12, BUFADR 

SET UP BUFFER ADDRESS 

1944 

0FB6 

C18R 


MOV 

LEN, BUFLEN 

SET UP BUFFER LENGTH 

1945 

0FB8 

0404 


CLR 

FLGS 

IN IT FLAGS 


0FBR 

0407 


CLR 

CHRCNT 

I NIT CHAR CNT TO ZERO 

\*..,947 

0FBC 

0402 


CLR 

IOC 

IN IT CODE FOR I/O SUPV CODE 

1948 

0FBE 

2FC2 


SVC 

IOC 

MAKE SUPV CALL 

1949 

8FC0 

R707 


A 

CHRCNT, : +=R12 

I NCR BUFF PTR TO END OF DATA 

1950 

0FC2 

0243 


AND I 

IOPLUN, >00FF 

IS THIS KEVBOARD READ? 


0FC4 

00FF 





1951 

0FC6 

8803 


0 

IOPLUN, 0KBLUNO 



0FC8 

019R “ 





1952 

0FCR 

1303 


..TEQ H 

iEVPLF 

IF VES, GO PRINT LF 

1953 

0FCC 

0640 


DECT 

R12 


1954 

0FCE 

0704 


MOV 

FLGS, •+=R12 

MOVE FLAGS TO CALLING WS 

1955 

0FD0 

0380 


RTWP 


ELSE, RETURN 

1956 



KEVPLF 



1957 

0FD2 

C0E0 


MOV 

0PRLUNO, IOPLUN 

SET UP PRB TO PRINT LF 


0FD4 

0190 •" 





1958 

0FD6 

D0C1 


MOVB 

WRCODP, IOPLUN 


1959 

0FD8 

0205 


LI 

BUFADR, LFCR 

SET UP BUFFER ADDR 


0FDR 

0184 





I960 

0FDC 

8704 


SETO 

FLGS 

SET FLAG TO PRINT WITHOUT CR 

1961 

0FDE 

1014 


•JMP 

PRTKEV 

JUMP TO ENTRV POINT IN PRINT 
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MIRA990 
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I/O ROUTINES 



948927-9901*5+; 

_i963 



•+s 

TITLE: 

WRITE 

fl 64 



:4c 


WRITE A RECORD 

V*£>65 




REVISION: 

03/15/76 

1.966 





ORIGINAL 

1967 




COMPUTER : 

990, ASSEMBLY 

1968 




ABSTRACT : 

SETS UP PRB AND MAKES SUPV CALL 

iyfc*y 



* 


TO WRITE A RECORD 

197© 



:4: 

CALLING SEQUENCE: 

1971 



:+: 


R10 = BUFFER ADDRESS 

1972 





BLWP QWRITE 

1973 



WRITE 


1974 

0FE0 

004C 


DATA 

I OWKS, $+2 TRANSFER VECTOR 


0FE2 

0FE4-’ 




1975 

0FE4 

C9E0 


MOV 

0C2LUNQ, IOPLUN STORE LUNO 


0FE6 

01H0-- 




1976 

0FE8 

0704 


SETO 

FLGS SET FLAG FOR. WRITE WITHOUT CR 

1977 

0FEFI 

1009 


JMF' 

F'RWRT 


PXREDT 


MIR8990 V2L1 12 

: 13 : 11 258/76 P8GE 0063 

I/O ROUTINES 


948927 

9901+* 


O 79 



* TITLE: 

PR I NT/PR I NTN 


V>80 



* 

PRINT 8 RECORD 


1981 



* REV I S I ON : 

03/15/76 


1982 



& 

0RIGIN8L 


1983 



* COMPUTER: 

990, 8SSEMBLV 


1984 



: + : RBSTRRCT : 

SETS UP PRB RND 

M8KES SUPV C8LL 

1985 




TO PRINT 8 RECORD 

1986 




PRINT - PRINTS 

RECORD WITH CR 

1987 



* 

PRINTN- PRINTS 

RECORD WITHOUT CR 

1988 



* C8LLING SEQUENCE: 


1989 



* 

R10 = BUFFER 8DDRESS 

1999 



:+s 

BLWP ©PRINT 


1991 



+■ 

OR 


1992 



* 

BLWP ©PRINTN 


1993 



PRINT 



1994 

0FEC 

0040 

D8T8 

IOWKS, PRTCR 

TR8NSFER VECTOR 


©FEE 

tiFFy *’ 




1995 



PRINTN 



1996 

0FF0 

0040: •' 

D8T8 

IOWKS, PRTNCR 

TR8NSFER VECTOR 


0FF2 

0FF4 




1997 



PRTNCR 



1998 

0FF4 

0704 

SETO 

FLGS 

SET FL8G FOR PRINT WITHOUT CR 

1999 

0FF6 

1001 

JMP PRENT 


2000 



PRTCR 



2001 

0FF8 

0404 

CLR 

FLGS 

SET FL8G FOR PRINT WITH CR 

2002 



PRENT 



^003 

0FFFI 

C0E0 

MOV 

©PRLUNO, IOPLUN 

STORE LUNO 

c 

0FFC 

0190 •- 




2004 



PRWRT 



2005 

0FFE 

D0C1 

MOVE 

WRCODP, IOPLUN 

STORE I/O OP 

2006 

1000 

C30D 

MOV 

R13, R12 

GET CALLER'S WP 

2007 

1002 

0220 

81 

R12, R10+R10 

INDEX TO CELLING P8R8METERS 


1004 

0014 




2008 

1006 

CISC 

MOV 

*R12, BUF8DR 

SET UP BUFFER 8DDR 

2009 



PRTKEV 



2010 

1008 

0680 

BL 

©GETCNT 

GET CHAR COUNT 


1008 

1020 •- 




2011 

1000 

8104 

8 

FLGS, CHRCNT 

ADJUST CHRCNT FOR CR 

2012 

100E 

0404 

CLR 

FLGS 

I NIT FLAGS 

2013 

1010 

0402 

CLR 

IOC 

IN IT CODE FOR I/O SUPV CALL 

2014 

1012 

2FC2 

SVC 

IOC 

MAKE SUPV CALL 

2015 

1014 

0244 

8NDI 

FLGS, IOERR 

CHECK RETURN STATUS 


1016 

4000 




2016 

1018 

02CF 

STST. 

R15 

STORE FLAGS IN USER STATUS 

2017 

1018 

1307 

JEQ 

PREXT 

EXIT IF NO ERROR 

2018 

1010 

0243 

8ND I 

IOPLUN, >00FF 



101E 

00FF 




2019 

1020 

8802: 

C 

IOPLUN, ©PRLUNO 

PRINT ERR <ESC CNTL RTN> 


1022 

0190 •" 




2020 

1024 

1602 

JNE 

PREXT 

NO, WRITE ERR CTAPE NR) 

2021 

1026 

0460 

B 

©ESCRTN 

RETURN TO MAIN LOOP 


1028 

0210 •" 




>£©22 



PREXT 



■ 322 

1028 

0380 

RTWP 


RETURN 
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TITLE: 

PGEND/ IN IT 

L>53 



:¥ 


BUFFER AREA/HEADING & MEMSIZ IN IT 

2054 




REVISION: 


2055 



* 


ORIGINAL 

2056 



* 


03/15/76 

2057 



¥ 


HEADING AND MEM SIZE IN IT MOVED & 

2058 





MODIFIED TO RUN WITH PXRMTR 

2©59 



* 


12/07/76 

2060 



* 


MODIFIED TO RUN WHEN BOOTED WITH PXR90 MONITOR 

2061 




COMPUTER : 

990, ASSEMBLY 

2862 



¥ 

ABSTRACT : 

AREA FROM END OF EDITOR TO 4K BOUNDARY 

2063 





RESERVED FOR EDIT BUFFER 

2864 



¥ 


IN IT CONTAINS CODE FOR INITIALIZATION 

2065 



•¥ 


DONE FIRST TIME PXREDT EXECUTED ONLY 

2066 



¥ 



2067 


00A0 

PGEND EQU 

>A0 START OF BUFFER AREA 

2068 



:¥ 

REF 

ENDBUF END OF BUFFER 

2069 



¥ 



2070 



I NIT 


2071 



¥ 



2872 



¥ 

INITIALIZE XOP VECTOR 

2073 




REF 

SVCWP 

2074 




REF 

SVCSR 

2875 

1040 

0209 


LI 

R9, SVCWP 


1042 

0000 




2876 

1044 

C8Ci9 


MOV 

R9, @>7C 

f-x 

1046 

0£i7C 




1 >77 

1048 

01209 


LI 

R9, SVCSR 


104A 

00100 




2878 

104C 

0809 


MOV 

R9, @>7E 


104E 

007E 




2879 






2880 



* 

PRINT OUT HEADING ETC. 

2081 






2082 

1050 

C2A0 


MOV 

0KBLUNO, R10 OPEN LOG KEYBOARD 


1052 

019 A •- 




2883 

1054 

0420 


BLWP 

©OPEN 


1056 

0F68' - ' 




2884 

1058 

C2A0 


MOV 

©PRLUNO, R10 OPEN LOG PRINTER 


105A 

0190 ' 




2085 

1050 

04201 


BLWP 

©OPEN 


105E 

0F68" 




2086 

1060 

020A 


LI 

R10, LFCR PRINT LINE FEED/CARRIAGE RETU 


1062 

0184 " 




2087 

1064 

0420 


BLWP 

©PRINT 


1066 

0FEC x 




2088 

1068 

020A 


LI 

R10i, NAMMSG PRINT PROGRAM TITLE 


106A 

1072' 




2089 

1060 

0420 


BLWP 

©PRINT 


106E 

0FEC" 




2890 



¥ 



2091 



¥ 

RETURN TO MAIN PROGRAM 


1070 

045B 


RT 



(* f 
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INITIfiLIZflTION 
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0 94 
95 
2096 

2097 1072 

2098 1073 

2099 188C 

108D 

2100 


* 

* 

* 

0A NAMMSG 

50 

0A 

0D 


MESSAGES 

BYTE LFE 
TEXT "PXREDT 
BYTE LFE, CRE 

END START 


948927 ** 12JUL76 •' 



PXREDT 

MIRA998 

V2L1 

12:13: 

:11 

258/76 

PAGE 

0067 


INITIALIZATION 


948927— 9901** 







NABNMS 

0612 

R 

ABRLFG 

011C 


ACTION 

0002 

R 

ANCHOR 

017E 


"'ATTOP 

03D6 

R 

BDPRNT 

0CF4 


BELL 

0007 

R 

BINASC 

0194 

R 

BLD1 

0C84 

R 

BLD1A 

0C9A 

R 

BLD2 

0CAA 

R 

BLD3 

0CB2 

R 

BOTTOM 

065A 

R 

BTM 

0640 

R 

BTM1 

065E 


BLIFADR 

0005 


BUFLEN 

0006 

R 

C1LUNO 

019E 

R 

C2LUN0 

01A0 

R 

CC 

0138 

R 

CHFLQ 

0116 

R 

CHNG 

066E 


CHRCNT 

0007 

R 

CHRET 

0EB8 


CLINNO 

0008 


CLLOC 

0006 

R 

CLRDUM 

01E0 

R 

CLRLIN 

0E8E 

R 

CMDLST 

02A0 

R 

CMPR 

024A 

R 

CNVRT 

0D08 

R 

COMMND 

0226 

R 

CONT 

0196 

R 

CONVRT 

0D04 

R 

CPBUF 

006E 

R 

CPBUF A 

006C 

R 

OR 

0135 


ORE 

000D 

R 

CURNO 

0150 

R 

CURPTL 

060A 

R 

DFLT 

0B38 


DUMNXT 

0000 

R 

DWN 

0680 

R 

DWN1 

068A 

R 

DWN2 

06A8 

R 

DWN3 

069A 

R 

DWN4 

06AE 

D 

EDTCSR 

01A6 

R 

ENDACT 

027A 

E 

ENDBUF 

0008 

R 

ENDFIL 

0F84 

R 

ENDLST 

02AE 

R 

ENDPRG 

01A2 


ENTRY 

0000 


EOF 

2000 

R 

EOFCOD 

01A5 

R 

EOFEXT 

06B4 

R 

EOFLG 

0114 

R 

EPEXIT 

029C 

R 

EREXFN 

0A58 

R 

EREXMV 

0C34 

R 

EREXOP 

06 3 C 

R 

EREXST 

0F3A 

R 

ESCRTN 

021C 

R 

EX1 

05FA 

R 

EXEXOP 

063A 

R 

EXIT 

06BA 

R 

EXITIN 

0792 

R 

EXOP 

0590 

R 

EXOPEX 

05F4 

R 

EXT 

0794 

R 

EXTBDP 

0D36 

R 

EXTBP1 

0D4A 

R 

EXTEXT 

057 E 

R 

EXTFLG 

0118 

R 

EXTINS 

0AFC 

R 

EXTMV 

0C32 

R 

EXTPRT 

0C66 

R 

EXTQT 

0DC8 

R 

EXTRMV 

0EB0 

R 

EXTSCR 

0E2A 

R 

EXTSK 

0518 

R 

EXTSTP 

0F38 

R 

EXTUP 

06FA 

R 

FASK 

084 A 


FCHAR 

0008 

R 

FDXT 

04FE 

R 

FERXIT 

0A3A 

R 

FFLG 

0128 


FGPOS 

000D 

R 

FINLAD 

014C 


FLGS 

0004 

R 

FLIN 

04E4 

R 

FLINi 

04E8 

R 

FND 

0798 

R 

FND1 

0874 

R 

FND19 

09CA 

R 

FND11 

09EC 

R 

FND11A 

09FC 

R 

FND11B 

09F2 

R 

FND11C 

0A20 

R 

FND1A 

089A 

R 

FND1B 

086E 

R 

FND2 

08CE 


FND3 

08E4 

R 

FND4 

08D8 

R 

FND5 

0900 

R 

FND6 

0908 

c 

FND7 

08F8 

R 

FND8 

0968 

R 

FND9 

0973 

R 

FND9A 

098E 

R 

FND9B 

0984 

R 

FNDA 

0702 

R 

FNDB 

07E4 

R 

FNDC 

0800 

R 

FNDF 

082A 


FPPOS 

000E 

R 

FROL IN 

0994 

R 

FRSTR 

09B6 

R 

FSO 

0164 

R 

FSDX 

0174 

R 

FSDXT 

0172 

R 

FXLAD 

016A 

R 

GCEXT 

103C 

R 

GCHA 

0580 

R 

GCLOOP 

102E 

R 

GETANS 

02DA 

R 

GETCH 

052E 

R 

GETCH1 

055A 

R 

GETCNT 

102C 

R 

GETCOM 

0232 

R 

GITCR 

0A5C 

R 

GITCRl 

0A5E 

R 

GITCRB 

0A6A 

R 

GULM 

061E 

R 

HI COR 

0008 

R 

HIMRG 

0136 

R 

INIT 

1040 

R 

INLNNO 

017A 

R 

INPS1 

078E 

R 

INPS2 

0752 

R 

INPS3 

0722 

R 

INSCH 

0A80 

R 

INSOU 

0708 

R 

INSR1 

0A9A 

R 

INSR1A 

0A9C 

R 

INSRS 

0A8A 

R 

INSRS 

0AEA 

R 

INSR7 

0AF6 

R 

INSRT 

0A7C 

R 

INTLPT 

0180 


IOC 

0002 


IOERR 

4000 


IOPLUN 

0003 

R 

IOWKS 

004C 

R 

KBLUNO 

019A 

R 

KEEP! 

0B24 


KEY 

0006 

R 

KEVIN 

0FA4 

R 

KEVPLF 

0FD2 

R 

KEYRD 

0FAC 

R 

KLRLIN 

0E16 

R 

KP 

0B0A 

R 

KP2 

0B14 

R 

LAMOV 

012C 


LEN 

000A 

R 

LF 

0184 

R 

LFCR 

0184 


LFE 

000A 

R 

LFFLG 

011E 


LI NAD 

0002 

R 

L IN ADD 

0144 

R 

LINADR 

0146 


LINPTR 

0004 

R 

LLIMIT 

0182 

R 

LML 

015A 

R 

LMTS 

0B44 

R 

LOMRG 

8134 

R 

LSTLIN 

03CC 

R 

MAI NRG 

0006 

R 

MALIN 

012A 

R 

MARGLM 

012E 

R 

MAXLIN 

015C 

R 

MCOIJNT 

02E4 

R 

MDFLT 

0F3E 

R 

MEMPTY 

03EA 

R 

MOEXT 

0B3E 

R 

MSGO0 

02FC 

R 

MSG01 

0317 

R 

MSG82 

032C 

R 

MSG03 

033C 

R 

MSG04 

034E 

R 

MSG05 

035B 

R 

MSG06 

036C 

R 

MSG07 

0379 

R 

MSG08 

0380 

R 

MSG09 

038B 

R 

MSG10 

0393 

R 

MSG11 

03A2 

R 

MSG±2 

03B0 

R 

MSG13 

03B4 

R 

MSG14 

03BA 

R 

MSGOUT 

02CE 

R 

MV 

0B83 

R 

MV1 

0BB8 

R 

MV4 

0BD6 

R 

MVS 

0BF4 

gs 


0BFA 

R 

MV6A 

0C0A 

R 

MV6B 

0C2C 

R 

MV7 

0BE8 


i MVRCNT 

0178 

R 

NAMMSG 

1072 

R 

NCH 

0538 


NEWPTR 

000F 


NMEXIT 

0516 

R 

NOTFND 

03F4 

R 

NOW 

0958 

R 

NULREL 

05D0 
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c 

NUMB 

013C 

R 

NUMBF 

01j>fi 

R 

NUMEXT 

y526 

R 

NWLF 

0126 

NX IT 

055E 

R 

NXLAD 

014A 

R 

NXTLAD 

014E 

R 

GKXT 

0574 

R 

OPEN 

@F68 

R 

OPERR 

03FE 

R 

OPNCOD 

01A4 

R 

OPNERR 

03E0 

R 

PABS 

0C5E 

R 

PBUF 

0002 

R 

PBUF A 

0QC0 

R 

PFKNT 

0A40 

R 

PFLG 

0120 


PGEND 

00A0 

R 

PLFLG 

011A 


PL I MTS 

0003 

R 

PMRGIN 

8132 

R 

PRELAO 

0148 

R 

PRENT 

0FFA 

R 

PREXT 

102A 

R 

PRINT 

0FEC 

R 

PRINTN 

OFFS 

R 

PRLAD 

0152 

R 

PRLIN 

0C68 

R 

PRLUNO 

019C 

R 

PRNT 

0C33 

R 

PRNT 1 

0C42 

R 

PRNT2 

0C52 


PROMPT 

0003 


PRT 

0004 

R 

PRTB 

0CCC 

R 

PRTB1 

8CCE 

R 

PRTCR 

0FF8 

R 

PRTKEV 

1008 


PRTN 

0005 

R 

PRTNCR 

0FF4 

R 

PRTPOS 

0188 

R 

PRTSP 

0CDE 

R 

PR VL I N 

015E 

R 

PRWRT 

0FFE 

R 

PTONLN 

09A2 

R 

PTSP1 

0D2C 

R 

PUTSPS 

0D28 

R 

PXREDT 

01AE 

R 

QT 

0D4E 

R 

QT0 

0D 66 

R 

QT1 

0D7S 

R 

QT2 

0D7A 

R 

QT3 

0D94 

R 

QT4 

0DC0 

R 

QT5 

0DA6 


R0 

0000 


R1 

0001 


R10 

000A 


Rll 

000B 


R12 

000C 


R13 

000D 


R14 

000E 


R15 

000F 


R2 

0002 


R3 

0003 


R4 

0004 


R5 

0005 


RS 

0006 


R7 

0007 


R8 

0008 


R9 

0009 


RDCOD 

0900 


RDCOOP 

0000 

R 

READ 

0F9A 

R 

RELNEG 

05E4 

R 

RELNUM 

05BE 

R 

RELRMV 

0EA2 

R 

REPFLG 

0124 

R 

REXB 

0EA6 

R 

RLNEG1 

05E6 

R 

RMV 

0E34 

R 

RMV1 

0E4E 

R 

RMV2 

0E86 

R 

RMV4 

0E7A 

R 

RMV6 

0E3C 

R 

RMVCH 

0E38 

R 

ROUTAD 

02B0 

R 

R0UTR1 

002C 

R 

RuUTRG 

©026 


RTN 

000B 

R 

SAVALL 

0DB4 

R 

SAVMRG 

0162 

R 

SA'v'RTN 

0154 

R 

SCBLK 

0050 

R 

SCFP 

016E 

R 

SCR0 

0DEC 

R 

SCR1 

0E0A 

R 

SCR2 

0E12 

R 

SCR3 

0E2C 

R 

SCR4 

0E28 

R 

SCROLL 

0DCE 

R 

SFND 

0934 

R 

SKANOP 

0500 

R 

SKANTM 

051A 


SLADDR 

013E 

R 

SLIN 

0EEC 

R 

SLINPT 

0158 

R 

SLOC 

0156 

V 

SMARG 

0F12 

R 

SNLIN 

0EE2 

R 

SP 

0186 

R 

SPCR 

0186 

N: 

SPLIM 

0EF6 

R 

SQ1 

0410 

R 

SQ2 

041C 

R 

SQ3 

0472 

R 

SQ3A 

0476 

R 

SQ4 

043C 

R 

SQ4A 

0460 

R 

SQ5 

04A0 

R 

SQ7 

04C0 

R 

SO 7 A 

04E2 

R 

SQ8 

0420 

R 

SQ9 

047C 

R 

SQNLAD 

0142 

R 

SQPLAD 

0140 

R 

SQUEEZ 

0408 

R 

SRK'NT 

0166 

R 

SSD 

0168 

R 

SSDX 

0176 

R 

START 

01A6 

R 

STP 

0EBE 

R 

STRCHR 

0170 

R 

SUCCES 

025A 

X 

SVC 

000F 

E 

SVCSR 

104A 

E 

SVCWP 

1042 

R 

SVPRM 

0160 

R 

TAB 

0198 

R 

TABS 

018A 

R 

TEN 

017C 

R 

TERM 

0197 

R 

THLAD 

016C 


TMLOC 

0007 

R 

TONLIN 

09A8 

R 

TOP 

0F4C 


TOPMEM 

0001 

R 

TF'i 

0F5E 


IJDCNT 

0001 

R 

UDCOM1 

06BC 

R 

UP 

06CA 

R 

IJP1 

06EA 

R 

IJP2 

06FC 

R 

UP3 

06F6 

R 

UP4 

06E4 

R 

VFLG 

0122 

R 

VLNPTR 

002E 


WRCOD 

0B00 


WRCODP 

0001 

R 

WRITE 

0FE0 


R VEA 0195 


0000 ERRORS 


APPLICATION 


REVISIONS 


NOTE : SOURCE AND OBJECT ON 
DISC IN SDP 948931. 


SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS otherwise specified 
DIMENSIONS ARE IN INCMES 
TOLERANCES 
ANGLES T 1 * 

1 PLACE DECIMAL ± 010 

2 PLACE DCCIMAL± 02 


IDENTIFYING NUMBERS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 


INTERPRET DWG IN 
ACCORDANCE WITH 
MIL STD lOO 




Texas Instruments 

INCORFOR Af ED 

Equipment Group Deilm, Tent 


AL,PXRBUF, RESIDENT MONITOR BUFFER DEFINITION 
-PXR990 


-••ate 


SCAUE 




























rxrctsui- 


BUFFEK DEFINITION 


948928-9991* 


PAGE 0081 A 


0002 


IDT 

F'XRBUF '' 

0083 


* TITLE: 

PXRBUF 

0004 

* 

* 

PX990 RESIDENT MONITOR BUFFER DEFINITION 

0005 


* REVISION: 


0006 


* 

ORIGINAL 

000? 


* COMPUTER : 

990, 999 ASSEMBLY 

0008 


* ABSTRACT: 

PXRBUF DEFINES THE END OF A BUFFER AREA EXTEND IN 

0009 


* 

FROM >A0 TO THE BEGINNING OF THE ASSEMBLER, TEXT 

©010 


* 

EDITOR, MONITOR. 

0011 


* CALLING SEQUENCE: NON-CALLABLE 

0012 
rnr-i.i "7' 

0000 

RORG 


0014 


■T- 

* DEFINE END OF ASSEMBLER SYMBOL TABLE. 

8015 


* 


0016 


DEF 

BGNPXR 

0017 

0000 

BGNPXR BSS 

1 

0018 


DEF 

SYMT 

0019 

0001 

SVMT BSS 

1 THE LAST BYTE OF THE BUFFER AREA. 

0020 




0021 


* DEFINE END OF BUFFER FOR TEXT EDITOR AND LINKING LOADER 

0022 


. 


0023: 


DEF 

ENDBUF 

0024 

0002 *" 

ENDBUF EQU 

$ 

0825 


END 



NO ERRORS 


■err, rrrrrr.cHL.f3 948928-9901 ** F ' ftQE 0002 

0824 

001? 0016 

0017 0819 

0016 0818 0023 

0G125 
0024 0023 

0£i24 
80102 
0012 
0019 00118 

8001 




c 


BGNPXR D 

DEF 

END 

ENDBUF D 
EQI.J 
IDT 
RORG 

SVMT D 
TITL 


00100 


0002 


0001 



NOTE :SOURCE AND OBJECT ON 


DISC IN SDP 948931. 



•-••*» c ” A 































■+■■■+■ UOmHND DEFINITIONS ** 


948930 - 9901 ** 


PHUt oei&afl 


** COMMAND DEFINITIONS ** 


948930 - 9901 ** 


PAGE 0002 


0004 IDT 'CMDEFQ' 

0005 * TITLE: CMDEFQ 

0006 * COMMAND DEFINITION TABLE 

0 0007 * REVISION: 2/1/76 

0008 * ORIGINAL 

0009 * 07/15/76 

0010 * EXTENDED TO INCLUDE PA AND TE COMMANDS 

0011 * REVISION: 8/20/76 

0012 * MODIFIED FOR A PERMANENT TRACE MODULE < FORMERLY 

0012 * OVERLAV> 

0014 * COMPUTER : 990, ASM 

0015 * ABSTRACT: CONTAINS A LIST OF THE COMMANDS, THEIR 

0016 * ALLOWABLE PARAMETERS, AND THE ENTRY POINT 

0017 * FOR THE COMMAND PROCESSER ROUTINE. 

0018 * CALLING SEQUENCE: 

0019 * NON EXECUTABLE 

0028 * 


1 0021 


* 


0022 

0023 

0024 

0025 

0026 

0027 

0028 
0029 
0020 

0031 

0032 

C , 0033 
0034 
0635 
0036 



* 

+: 

0001 PH 

0002 PC 

0003 PN 

*« 4 < 


COMMAND STRUCTURE 

:+t :+c :+; sfisfcsiotc :+c ^ 

' * COMMAND * 

************!♦<******** 

* PI - P8 * 

:+c tfc :•#< 

* SERVICE ROUTINE * 

:+« :+’• 

PARAMETER DEFINITIONS 

EQU 1 HEX STRING 

EQU 2 CHARACTER STRING 

EQU 3 NULL 


** COMMAND DEFINITIONS ** 


948930-9901** 


PAGE 0003 


o 


0038 





0039 



DEF ' 

S AND REF'S 

0040 





1 0041 



DEF 

CMDTBL 

0042 



DEF 

NOCMDS 

0043 



DEF 

SREGN 

0044 





0045 


* 



0046 

0000' 

CMDTBL 

EQU 

$ 

0047 





0048 


:* 

ASSIGN LUNO 

0049 


:* 



0050 



REF 

ASLUN 

0051 0000 

41 


TEXT 

' AL' 

0001 

4C 




0052 0002 

6FFF 


DATA 

PH*4+PC*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 

0053 0004 

0000 


DATA 

ASLUN 

0054 


* 



0055 


* 

DUMP 

IN ABSOLUTE FORMAT 

0056 





0057 0006 

44 


TEXT- 

'DP' 

0007 

50 



* 

0058 0008 

56BF 


DATA 

PH*4+PH*4+PH*4+PC*4+PC*4+PN*4+PN*4+PN 

0059 000A 

0000 


DATA 

0 

0060 





0061 



DUMP 

IN BNPF FORMAT 

0062 


* 



0063 000C 

44 


TEXT 

'DB' 

000D 

42 




0064 000E 

97FF 


DATA 

PC*4+PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN 

0065 0010 

0000 


DATA 

0 

0066 


* 



0067 



DUMP 

IN HIGH/LOW FORMAT 

0068 





0069 0012 

48 


TEXT 

'HL' 

0013 

4C 




0070 0014 

95FF 


DATA 

PC*4+PH*4+PH*4+PH*4+PN*4+PN*4+PN*4+PN 

0071 0016 

0000 


DATA 

0 

0072 


* 



0073 



EXECUTE USER PROGRAM 

0074 


* 



0075 



REF 

EXCT 

0076 0018 

45 


TEXT 

'EX' 

0019 

58 




0077 001R 

FFFF 


DATA 

PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 

0078 001C 

0000 


DATA 

EXCT 

0079 


* 



0080 


:+* 

LINK 

AND LOAD 

0081 


* 



0082 



REF 

LALCSR 

0083 001E 

4C 


TEXT 

'LL' 

001F 

4C 




0084 0020 

FFFF 


DATA 

PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 

0085 0022 

0000 


DATA 

LALCSR 

0086 


* 



0087 


* 

STANDARD LOADER 

(0088 





0089 



REF 

LOAD 

0090 0024 

40 


TEXT 

'LP' 

0025 

50 





** COMMAND DEFINITIONS ** 


948930-9901** 


PAGE 0004 


o 


o 


0091 

0826 

5FFF 


0092 

0028 

0000 


0093 


* 


0094 



* 

0095 



♦ 

0096 

002A 

4C 



002B 

41 


0097 

002C 

7FFF 


0©98 

002E 

0000 


0099 



*: 

0100 



* 

0101 




0102 



:+: 

0103 




0104 

0030 

4C 



0031 

55 


0105 

0032 

5FFF 


0106 

0034 

8000 


0107 



:+: 

0108 



* 

0109 




0110 




0111 

003*6 

50 



0037 

4C 


0112 

0038 

5FFF 


0113 

003A 

0000 


0114 



* 

0115 




0116 



*: 

0117 




0118 

003C 

4F 



003D 

56 


0119 

003E 

7FFF 


0120 

0040 

0000 


0121 




0122 




0123 




0124 

0042 

50 



0043 

50 


0125 

0044 

9555 


0126 

0046 

0000 


0127 




0128 



* 

0129 




0130 

0048 

50 



0049 

53 


0131 

004A 

AFFF 


0132 

004C 

0000 


8133 



* 

0134 



* 

0135 



:+s 

0136 




0137 

004E 

52 



004F 

55 


0138 

0050 

7FFF 


0139 

0052 

0000 


J0140 



* 

F 0141 



* 

0142 




0143 





DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA LOAD 

ABSOLUTE LOADER 

TEXT •'LA' 

DATA PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA © 


LOAD UP FRONT LOADER AND PROGRAM 

REF LDUFL 
TEXT 'LU' 

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA LDUFL 

LOAD PROM PROGRAMMER 

REF PL 
TEXT 'PL' 

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA PL 

OVERLAY SUPERVISOR 

REF OVLY 
TEXT 'OV' 

DATA pn*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA OVLY 

PROM PROGRAMMER 

TEXT 'PP' 

DATA PC*4+PH*4+PH*4+PH*4+PH*4+PH*4+PH*4+PH 
DATA 0 

STANDARD PROM PROGRAMMER 

JEXT 'PS' 

DATA PC*4+PC*4+F*N*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA 0 

RUN 

REF RUN 
TEXT 'RU' 

DATA PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA RUN 

INSPECT CRU 


REF I CP 


** CUMMHND DEFINITIONS +* 


948930-9901 ! * !i + l 


PAGE 0005 


o 


0144 

0054 

49 


TEXT 'IC' 

0145 

0055 

0056 

43 

5FFF 


DRTR PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN s **4+PN 

1 0146 
0147 

0058 

0000 

* 

drtr I CP 

0148 



* 

INSPECT MEMORY 

0149 

0150 



* 

REF IMP 

0151 

005R 

49 


TEXT 'IM' 


005B 

4D 



0152 

005C 

5FFF 


DRTR PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 

0153 

0154 

005E 

0000 

¥ 

DRTR IMP 

0155 




INSPECT REGISTERS 

0156 

0157 



* 

REF IRP 

0158 

0060 

49 


TEXT 'IR' 


0061 

tro 



0159 

0062 

FFFF 


DRTR PN : M+PN=M+PN ! M+PN:M+PN*4+PN*4+PN*4+PN 

0160 

0161 

0064 

0000 

* 

DRTR IRP 

8162 




INSPECT SNRPSHOT 

0163 

0164 



* 

REF ISS 

0165 

0066 

49 


TEXT 'IS' 


0067 

53 



0166 

0068 

5FFF 


DRTR PH ! +=4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 

0167 

0168 

006R 

0000 


DRTR ISS 

,0169 



* 

INSPECT WORKSPACE 

J'0170 



* 


'0171 




REF IWP 

0172 

006C 

49 


TEXT 'IW' 


006D 

57 



0173 

006E 

5FFF 


DRTR PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 

0174 

0175 

0070 

0000 


DRTR IWP 

0176 



* 

MODIFY CRU 

0177 

0178 



* 

REF MODCRU 

0179 

0072 

4D 


TEXT 'MC' 


0073 

43 



0180 

0074 

5FFF 


DRTR PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 

0181 

0182 

0076 

0000 

* 

DRTR MODCRU 

0183 

0184 



* 

* 

MODIFY MEMORY 

0185 




REF MODMEM 

0186 

0078 

4D 


TEXT 'MM' 


0079 

4D 



0187 

007R 

7FFF 


OHTR PH*4+PN*4+PN*4+PN : + ! 4+PN*4+PN : *4+PN*4+PN 

0188 

0189 

007C 

0000 

* 

DRTR MODMEM 

0190 

0191 



* 

MODIFY REGISTERS 

0192 




REF MRP 

|fil93 

007E 

4D 


TEXT 'MR' 

9 

007F 

52 



0194 

0080 

FFFF 


DRTR PN*4+PN*4+PN*4+PN :+! 4+PN*4+PN*4+PN*4+PN 

0195 

0082 

0000 


DRTR MRP 


** COMMAND DEFINITIONS ++ 


948930-9901** 


PAGE 0006 


o 


0196 

0197 

0198 

0199 

0200 


v>i 


0201 

0202 

0203 

0204 

0205 
0286 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 


0223 

0224 

0225 

0226 
0227 


0084 

0085 

0086 
0088 


0096 

0097 

0098 
0098 


4D 

57 

7FFF 


0088 

008B 

0080 

008E 


53 

42 

55FF 

0000 


0090 

0091 

0092 
0094 


53 

53 

557F 

0000 


Jj. 

52 

5595 

0000 


0229 

0230 

0231 

0232 

0233 

0234 

0235 
8236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 


d 


0244 
245 
46 

0247 

0248 


0090 

009D 

009E 

00A0 


0082 

0083 

00fl4 

00FI6 


0088 

0089 

0088 

0080 


53 

54 
6FFF 
0000 


53 

50 

5FFF 

0000 


43 

42 

5FFF 

0000 




■¥ 


* 


* 


* 


* 

* 


■¥ 


■¥ 


* 


* 

* 


He 


SREGN 

* 

* 

* 


* 

* 

* 


H* 

* 

* 


* 

* 


MQDIFV WORKSPACE REGISTERS 

REF MODWSP 
TEXT 'MW' 

DATA PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA MODWSP 


SET BREAKPOINT 

REF SBP 
TEXT 'SB' 

DATA PH*4+PH*4+PH*4+PH*4+PN*4+PN*4+PN*4+PN 
DATA SBP 

SET SNAPSHOT 

REF • SSS 
TEXT 'SS' 

DATA PH*4+PH*4+PH*4+PH*4+PH*4+PN*4+PN*4+PN 
DATA SSS 

SET REGION 

REF SR 
TEXT 'SR' 

DATA PH*4+PH*4+PH*4+PH*4+PC*4+PH*4+PH*4+PH 
DATA SR 

SET TRACE 

REF STRACE 
TEXT 'ST' 

DATA PH*4+PC*4+PN*4+PN*4+PN*4+PN*4+F‘N*4+PN 
DATA STRACE 

SET PROTECT REGION 

REF LDPRT 
TEXT 'SP' 

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA LDPRT 

CLEAR BREAKPOINT 

REF CBP 
TEXT 'OB' 

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA CBP 

CLEAR SNAPSHOTS 


** COMMAND DEFINITIONS ** 


948930 - 9901 ** 


PAGE 000/ 


0249 

0250 00RE 43 

O 00RF ' 53 
0251 0080 5FFF 
0252 8082 0000 
0253 
0254 
0255 
0256 

8257 0084 43 

0085 52 

0258 0086 5FFF 
0259 0088 0000 
0260 
0261 
0262 
0263 

' 0264 0088 43 

0088 50 

0265 00BC FFFF 
0266 00BE 0000 
0267 
0268 
0269 
0270 

0271 00C0 46 

00C1 57 

0272 00C2 55FF 
0273 00C4 0000 
4 
5 
6 

0277 

0278 00C6 46 

00C7 42 

8279 00C8 55FF 
0280 00CR 0000 
0281 
0282 
0283 
0284 

0285 00CC 48 
i 00CD 41 

0286 00CE 5FFF 
0287 00D0 0000 
0288 
0289 
0290 

0291 00D2 50 

00D3 41 

0292 00D4 FFFF 
0293 

0294 00D6 0000 
0295 :¥ 

0296 

€ 0297 

|293 00D8 54 

* 00D9 45 



0299 00DR FFFF 

0300 


* 

* 

* 




* 


* 


* 

* 

* 


* 

* 


* 




*■ 


* 

* 


* 


* 

* 

* 


REF CSS 
TEXT 'CS' 

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA CSS 

CLEAR REGION 

REF CRR 
TEXT •' CR ' 

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA CRR 

CLEAR PROTECT REGION 

REF CLEARP 
TEXT 'CP' 

DATA PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA CLEARP 

FIND WORD 

REF FWD 
TEXT 'FW' 


DATA PH*4+PH*4+PH*4+PH*4+PN*4+PN*4+PN*4+PN 
DATA FWD 

FIND BYTE 

REF FBT 
TEXT 'FB' 

DATA PH*4+PH*4+PH*4+PH*4+PN*4+PN*4+PN*4+PN 
DATA FBT 

HEX ARITHMETIC 

REF HXAR 
TEXT '’HA' 

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
DATA HXAR 

ONE PASS ASSEMBLER 
TEXT 'PR' 

DATA PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
REF ASMCSR 
DATA ASMCSR 

TEXT EDITOR 

TEXT 'TE' 

DATA PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN 
REF EDTCSR 


** COMMAND DEFINITIONS ** 943930-9901** RAGE 0003 

0301 00DC 0000 DATA EDTCSR 

0302 * 

0303 * * 

0 0304 * 

0305 ©ODE-' NOCMDS EQIJ $ 

0306 00DE 0025 DATA 3? 

0307 END 

NO ERRORS 




o 


LABEL 


VALUE DEFN REFERENCES 


948930-9901 


PAGE 0009 


* R 00E0 

ASLUN E 0004 0050 

ASMCSR E 00D6 0293 

^CBP E 00AC 0242 

VJCLEARP E 00BE 0263 

CMDTBL D 0000 0046 

CRR E 00B8 0256 

CSS E 00B2 0249 

DATA 


' DEF 

EDTCSR E 00DC 0300 

END 

EQU 

EXCT E 001C 0075 

FBT E 00CA 0277 

FWD E 00C4 0270 

HXAR E 00D0 0284 

I CP E 0058 0143 

IDT 

IMP E 005E 0150 

IRP E 8064 0157 

-*JSS E 006 A 0164 

■ -WP E 0070 0171 

^“LALCSR E 0022 0082 

LDPRT E 00A6 0235 

LDUFL E 0034 0103 

LOAD E 0028 0089 

MODCRU E 0076 0178 

MODMEM E 007C 0185 

MODWSP E 0088 0199 

MRP E 0082 0192 

NOCMDS D 00DE 0305 

OVLY E 0040 0117 

PAGE 

PC 0002 0034 

PH 0001 0033 


PL E 003A 0110 

PN 0003 0035 



0046 0305 

0053 
0294 
0245 
©266 
0041 
0259 
0252 


0052 

0053 

0058 

0059 

0064 

0078 

0084 

0085 

0091 

0092 

0112 

0113 

0119 

0120 

0125 

0139 

0145 

0146 

0152 

0153 

0173 

0174 

0180 

0181 

0187 

0202 

0209 

0210 

0216 

0217 

0237 

0238 

0244 

0245 

0251 

0266 

0272 

0273 

0279 

0280 

0299 

0301 

0306 



0041 

0042 

0043 



0301 





0307 





0033- 

0034 

0035 

0046 

©305 


0078 

0280 

0273 

0287 

0146 

0004 

0153 

0160 

0167 

0174 

0085 

0238 

0106 

0092 

0181 

0188 

0202 

0195 

0042 

0120 


0002 

0052 

0003 

0058 

0037 

0058 

0064 

0070 

0230 

0052 

0058 

0058 

0058 

0064 

0091 

0091 

0097 

0105 

0105 

0125 

0125 

0125 

0125 

0125 

0152 

0152 

0166 

0166 

0173 

0201 

0209 

0209 

0209 

0209 

©216 

0223 

0223 

0223 

0223 

8237 

0237 

0244 

0244 

0251 

0272 

0272 

0272 

0279 

0279 

0113 

0052 

0052 

0052 

0052 

0052 

0064 

0064 

0064 

0064 

0064 

0077 

0077 

0077 

0077 

0077 

0084 

0084 

0084 

0084 

0084 

0091 

0091 

0091 

0091 

0097 

0097 

0097 

0105 

0105 

0105 

0112 

0112 

0112 

0112 

0112 


0065 

0070 

0071 

0077 

0097 

0098 

0105 

0106 

0126 

0131 

0132 

0138 

0159 

0160 

0166 

0167 

0188 

0194 

0195 

0201 

0223 

0224 

0230 

0231 

0252 

0258 

0259 

0265 

0286 

0287 

0292 

0294 


0125 

0131 

0131 

0223 

0064 

0070 

0070 

0070 

0112 

0112 

0119 

0125 

0125 

0138 

0145 

0145 

0173 

0180 

0180 

0187 

0216 

0216 

0216 

0216 

0223 

0223 

0223 

0230 

0251 

0258 

0258 

0272 

0279 

0279 

0286 

0286 

0052 

0058 

0058 

0058 

0070 

0070 

0070 

0070 

0077 

0077 

0077 

0084 

0084 

0084 

0091 

0091 

0097 

0097 

0097 

0097 

0105 

0105 

0105 

0112 

0119 

0119 

0119 

0119 


i-.rtoc.l_ 


VML.UE 


UfcEN KEFEKfcNUfcb 


948930-9901 


PAGE 0010 


u 


• REF 


RUN 

E 

0052 

0136 

SBP 

E 

008E 

0207 

SR 

E 

0090 

0221 

SREGN 

D 

0090 

0224 

sss 

E 

0094 

0214 

STRflCE 

TEXT 

E 

0000 

0228 



TITL 


0119 

0119 

0119 

0131 

0138 

0138 

0138 

0138 

0145 

0145 

0145 

0145 

0152 

0159 

0159 

0159 

0166 

0166 

0166 

0166 

0173 

0173 

0173 

0180 

0187 

0187 

0187 

0187 

0194 

0194 

0194 

0194 

0201 

0201 

0201 

0201 

0216 

0216 

0230 

0230 

0237 

0237 

0237 

0237 

0244 

0244 

0251 

0251 

0258 

0258 

0258 

0258 

0265 

0265 

0265 

0265 

0279 

©279 

0279 

0286 

0292 

0292 

0292 

0292 

0299 

0299 

0299 

0299 

0050 

0075 

0082 

0089 

0150 

0157 

0164 

0171 

0214 

0221 

0228 

0235 

0277 

0284 

0293 

0300 

0139 




0210 




0224 




0043 




0217 




0231 




0051 

0057 

0063 

0069 

0111 

0118 

0124 

0130 

0172 

0179 

0186 

0193 

0236 

0243 

0250 

0257 

0298 




0001 





** 


0131 

0131 

0131 

0131 

0131 

0138 

0138 

0138 

0145 

0145 

0152 

0152 

0152 

0152 

0152 

0159 

0159 

0159 

0159 

0159 

0166 

0166* 

0173 

0173 

0173 

0180 

0180 

0180 

0180 

0180 

0187 

0187 

0187 

0194 

0194 

0194 

0194 

0201 

0201 

0201 

0209 

0209 

0209 

0209 

0216 

0230 

0230 

0230 

0230 

0237 

0237 

0244 

0244 

0244 

0244 

0251 

0251 

0251 

©251 

0258 

0258 

0265 

0265 

0265 

0265 

0272 

0272 

0272 

0272 

0279 

0286 

0286 

0286 

0286 

0286 

0292 

0292 

0292 

0292 

0299 

0299 

0299 

0299 



0103 

0110 

0117 

0136 

0143 

0178 

0185 

0192 

0199 

0207 

0242 

0249 

0256 

026 j> 

0270 


0076 

0083 

0090 

0096 

0104 

0137 

0144 

0151 

0158 

0165 

0200 

0208 

0215 

0222 

0229 

©264 

0271 

0278 

0285 

0291 



o 



NOTE :SOURCE AND OBJECT ON 



DISC IN SDP 948931. 
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0005 

0006 
000 ? 

0 0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
1 0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 

C 0034 

; 0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0053 

0059 

0060 

0 0061 
0062 
0063 
0064 


IDT 'PRLDDR' 

* TITLE: PR990 LOADER DRIVER 

* PRLDDR 


* REVISION: 

* ORIGINAL 

* COMPUTER: 990, ASM 

* ABSTRACT: PRLDDR IS RESPONSIBLE FOR FOUR FUNCTIONS: 

* 1> PROCESS LP, LA KEYBOARD COMMANDS AND 

* CALL ROM LOADER AND ABS LOADER RESPECT I VEL 

* 2) INTERFACE TO THE ROM LOADER 

* 3> PERFORM 10 TO SUPPORT THE ROM LOADER. 

* 4> CALL ROM LOADER TO LOAD OVERLAY 


* CALLING SEQUENCE: 

* 1- KEYBOARD COMMAND 

* R10 - POINTER TO COMMAND PARAMETER LIST 


* 

* 

* 

* 

* 

* 

He 

He 

He 

He 

He 

He 


He 


He 


BL ©LOAD 

LOAD PROGRAM 
BL ©LDABS 
LOAD ABSOLUTE 
BL ©LOADOV 
LOAD OVERLAY 
ENTRY 

R10 - POINTER TO COMMAND PARM LIST 
R1 - LOAD BIAS FOR OV COMMAND ONLY 
EXIT 

R0 NOT EQUAL TO 0 FOR ERROR 
2- LOADER 10 

BL ©RH (MAIN DRIVER SETS POINTER 

IN Rll> 


* PROCEDURE LOADER-DR I VER < CPL > ; 

He X* LOADER-DRIVER WILL ACCEPT THE 

* INPUT LUNQ AND CALL THE LOADER 

* TO LOAD THE USER'S PROGRAM. 


He 


He 

H< 

H« 

* 

* 

He 


He 

He 

He 

He 

H« 

He 

H< 

He 

He 


H: 

* 

He 

H< 

H» 

H 

* 

H< 

H< 

He 

He 


He/ 

LOADER-LUNO = 7; /* DEF = CS1 */ 

IF CPL. PARM1 . NE. NULL THEN 
LOADER-LUNO = CPL. PARM1 
LOAD-PRB-LUNO = LOADER-LUNG; 

IF DEVICE TYPE . NE. CS SIGNAL ERROR 
LOAD— PRB_QPCODE ■ 'OPEN'; 

CALL SVC < SVC-CALl — BLOCK > ; 

IFCLD FLAG. LE. 1> THEN 

IFCCPL-PARM2 . NE. NULL>THN 
BIAS= PARM2; 

END IF; 

ELSE B I AS=DEFAULT_B I AS; 

CALL SET LOADER WORKSPACE; 

CALL SET- WORKSPACE < Rll, LOC C LOADER- 1 0 > > ; 
CALL SET WORKSPACE < R9, BIA5> 

CALL LOADER < LOADER- 10, 

BIAS, CASS-FLAG) 

IF ERROR . NE. 0 THEN DO; 

IF PROGRAM-NAME-CHRR-COUNT . NE. 0 
THEN CALL PR I NT < PROGRAM-NAME >; 

IF PROGRAM-ENTRY . NE. 0 THEN 
IF CALLER NE OVLY THEN 

USER-PC = PROGRAM-ENTRY 
IF CALLER EQ LOADUPFRONT THEN 
CALL UPFRONT LOADER 

END; ELSE 
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* 


CALL ERROR < 'LD00 x >; 

0066 

* 

END 

} 

_.0067 

* 

RETURN; 

fJ0068 

* 

PROCEDURE LOADER- 10; 

^✓0069 



/* LOADER- 10 PROVIDES 10 SUPPORT 

0070 

* 


FOR THE ROM LOADER. THE OPEN 

0071 

* 


HAS BEEN PROCESSED BY THE MAIN 

0072 

* 


DRIVER. 

8073 

♦ 


*/ 

0074 

* 


CHAR-COUNT “CHAR-COUNT -1; 

0075 

* 


IF CHAR-COUNT —1 THEN DO; 

0076 

* 


LOAD-PRB-OPCODE = ''READ''; 

0077 

* 


CALL SVC < SVC-CALI BLOCK > ; 

0078 

* 


IF ERROR THEN EXIT; 

0079 

* 


IF EOF THEN EXIT; 

0080 

* 


CURR-BUFF-ADDR • LOADER-BUFFER-ADDR; 

0081 

* 


OUTPUT LOAD ADDRESS TO LIGHTS 

1 0082 

* 


END; 

0083 

* 


CALL MOVE-B I T < RETURN-VALUE* CURR-BUF- ADDR > ; 

0084 

* 


CURR_BUFF_ADDR = CURR-BUFF-ADDR+l; 

0085 

* 

END; 

0086 

* 

END 

LDIO; 

0087 

* 

DO 

FOREVER; 

0088 

>K 

CALL GETCHAR; 

0089 

* 

END 


0090 

* 

END LOADER-DRIVER; 

0091 

* 



0092 

* 

REF 

'S AND DEF'S 

0093 

* 



jrv0094 


DEF 

LDUFL 

IJb095 


DEF 

LDABS 

0096 


DEF 

LOAD 

0097 


DEF 

LOADOV 

0098 


REF 

SVCALT 

0099 


REF 

SVCWP 

0100 


REF 

SVCSR 

0101 


REF 

SAVWP 

0102 


REF 

CS 

0103 


REF 

CLDT 

0104 


REF 

OVLRET 

0105 


REF 

LDPRB 

0106 


REF 

LDOPCD 

0107 


REF 

LDLUN 

0108 


REF 

LDFLG 

0109 


REF 

LDADDR 

0110 


REF 

LDCC 

0111 


REF 

LDCBA 

01-12 


REF 

LDBUF 

0113 


REF 

CR 

0114 


REF 

ABSLDR 

0115 


REF 

ROMLDR 

0116 


REF 

LDTBL 

0117 


REF 

PRNTC 

0118 


REF 

PRCRLF 

0119 


REF 

TRNARA 

^0120 


REF 

USRPC 

fm2i 


REF 

ERROR 

^^122 


REF 

LDCBBC 

0123 


REF 

LDNMCC 

0124 


REF 

DFBIAS 
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0125 ' 



REF 

INIT 


0126 



REF 

CRUOFF 


0127 



REF 

GETBUF 


#"\0128 

V*#0129 



REF 

REF 

RETBUF 

LWP 


0130 



REF 

RWP 


0131 



REF 

ACL 


0132 



REF 

RR 


9133 

8134 


* 

REF 

BGNPXR PXRMAE FIRST ADDRESS 


0135 


♦WORKSPACE 

REGISTER DEFINITIONS 


0136 


* 




0137 

0000 

R0 

EQU 

0 


0138 

0001 

R1 

EQU 

1 


0139 

0002 

R2 

EQU 

o 

c. 


0140 

0003 

R3 

EQU 

3 


0141 

0004 

R4 

EQU 

4 


' 0142 

0005 

R5 

EQU 

5 


0143 

0006 

R6 

EQU 

6 


0144 

0007 

R7 

EQU 

7 


0145 

0008 

R8 

EQU 

8 


0146 

0009 

R9 

EQU 

9 


0147 

000A 

R10 

EQU 

10 


0148 

0008 

Rll 

EQU 

11 


0149 

000C 

R12 

EQU 

12 


0150 

000D 

R13 

EQU 

13 


0151 

000E 

R14 

EQU 

14 


8152 

000F 

R15 

EQU 

15 


0153 

/’"X0154 

|J0155 


* 

DXOP 

SVC, 15 


0100 

LBVTE 

EQU 

256 


0156 

0000 

OPN 

EQU 

0 


0157 

0009 

READ 

EQU 

9 


0158 

2400 

LDERR 

EQU 

>2400 


0159 

2401 

LUNERR 

EQU 

>2401 INVALID LUNO 


0160 


* 




0161 


* 

UPFRONT LOADER DEFAULT BIAS 


0162 


* 




0163 

FE50 

UFLBIA 

EQU 

->1B0 


0164 


* 




0165 


* 


1-PROCEDURE LOADER-DR I VER < CPL > 

0166 


♦ 


2-7* LOADER-DRIVER WILL 

ACCEPT 

0167 


* 


2- INPUT LUNO AND CALL 

THE L 

0168 


* 


2- TO LOAD THE USER'S 

PROGRA 

0169 


* 


2-*/ 


0178 


* 




0171 


*****: UP FRONT LOADER ENTRV POINT ****************** 


0172 

0000 ' 

LDUFL 

EQU 

$ 


0173 0000 

04CE 


CLR 

R14 


0174 0002 

1005 


JMP 

LOA002 


0175 


********* ROM LOADER ENTRV POINT *********** 


0176 

0004 ' 

LOAD 

EQU 

$ 


0177 0004 

020E 


LI 

R14, 1 


0006 

0001 





0178 0008 

1002 


JMP 

LOA002 


^0179 


***** RBS LOADER ENTRV POINT ************ 


#10180 

000 A' 

LDABS 

EQU 

$ 


%*^181 000A 

020E 


LI 

R14, 2 


000C 

0002 






* 


0182 
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0183 



* 

XOP 

INTERRUPT VECTOR 


0184 


000E ' 

LOA002 EQU 

$ 


0185 

000E 

'0209 


LI 

R9, SVCWP 



0010 

0000 





V/0186 

0012 

C809 


MOV 

R9, ©>?C 



0014 

007C 





018? 

0016 

0209 


LI 

R9, SVCSR 



0018 

0000 





0188 

001ft 

C809 


MOV 

R9, @>7E 



001C 

00?E 





0189 



* 




0190 

001E 

1002 


JMP 

LOA005 


0191 



***************** OVERLflV ENTRV POINT ***************** 

0192 


0020' 

LQftDOV EQU 

* 


0193 

0020 

020E 


LI 

R14, 3 



0022 

0003 





0194 


0024' 

LOR005 EQU 

* 


' 0195 



* 

*flLLOC. 

, COPV, LINK 


8196 

0024 

0420 


BLWP 

©ACL 



0026 

0000 





019? 

0028 

C80D 


MOV 

R13, ©SftVWP 



002ft 

0000 




> 

0198 

002C 

C0ED 


MOV 

@R14*2<R13>, R3 

RETRIEVE R14 FROM OLD WS 


002E 

001C 





0199 

0030 

C10fi 


MOV 

R10j R4 


0200 






2-L0ADER-LUN0 ■ 7; /* DEF = C 

0201 

0032 

0209 


LI 

R9, 7*LBVTE 



0034 

0700 





0202 






2- IF CPL. PflRMl . NE. NULL THEN 

-.0203 



:«fc 



3-LORDER-LUNO - CPL. PftRMl 

■ 3204 

0036 

C034 


MOV *R4+, R0 


V-^0205 

0038 

0R90 


SLR 

R0, 9 

CHECK PRESENCE BITS 

0206 

003ft 

1702 


JNC 

LOR010 


020? 

003C 

C274 


MOV 

*R4+, R9 


0208 

003E 

0fl89 


SLR 

R9j 8 

BVTE SIZE PfiRM 

0209 


0040' 

LOR010 EQU 

* 


0210 



* 



2-L0flD_PRB_LUN0 = LOADER-LUNO; 

0211 

0040 

D809 


MOVB 

R9, ©LDLUN 



0042 

0000 





0212 



* 



2- IF DEVICE TYPE . NE. CS SIGNft 

0213 

0044 

C289 


MOV 

R9, R10 


0214 

0046 

098ft 


SRL 

R10, 8 


0215 

0043 

O6R0 


BL 

©CLDT 



004ft 

0000 





0216 

004C 

0208 


LI 

RS, CS 



004E 

0000 





021? 

0050 

0989 


SRL 

R9> 8 


0218 

0052 

020ft 


LI 

R10, LUNERR 



0054 

2401 





0219 

0056 

8209 


C 

R9, R8 


0220 

0058 

164C 


JNE 

LOR052 


0221 



>N 



2-L0ftD_PRB_0PC0DE = 'OPEN'; 

0222 

005fl 

0209 


LI 

R9, OPN*LBVTE 



005C 

0000 





0223 

005E 

D809 


MOVB 

R9, ©LDOPCD 



0068 

0000 





^0224 






2-CALL SVC < SVC-CALI — BLOCK > ; 

\J&225 

0062 

020ft 


LI 

R10, LDPRB 



0064 

0000 





0226 

0066 

0420 


BLWP 

©SVCftLT 
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0068 

0000 




022/ 


* 



2-IF<LD FL8G. LE. 1> THEN 

0228 

0068 

0283 

Cl 

R3> 1 



006C 

0001 




\Jr 0229 

006E 

1B0C 

JH 

LO8014 


0230 


* 



3- 1 F < CPI P8RM2 . NE. NULLXTHN 

0231 


He 



4-BI8S* P8RM2; 

0232 


* 



3-END IF; 

0233 


He 



3-ELSE BI8S=DEF8ULT_BI8S; 

8234 

0070 

0810 

SL8 

R0, 1 

CHECK PRESENCE BIT 

0235 

0072 

1809 

JOC 

LO8012 


0236 

0074 

0003 

MOV 

R3> R3 


0237 

0076 

1605 

JNE 

LO8011 


0238 

0078 

0201 

LI 

Rl, BGNPXR 



0078 

0000 




0239 

007C 

0221 

81 

Rl, UFLBI8 



007E 

FE50 




i 0240 

0080 

1003 

JMP 

LO8014 


0241 


0082 ' LO8011 

EQU 

$ 


0242 

0082 

0520 

MOV 

0DFBI8S, *R4 



0084 

0000 




0243 


0086'’ LO8012 

EQU 

* 

. 

0244 

0086 

0074 

MOV 

*R4+j R1 


0245 


0088'' LO8014 

EQU 

* 


0246 


* 



2-C8LL SET L08DER WORKSPHCE; 

0247 

0088 

04E0 

CLR 

©LDCC 



0088 

0000 




0248 

008C 

0283 

01 

R3> 2 



008E 

0002 




y>®249 

0090 

1307 

JEQ 

LO8030 


■ )0250 


H8 



2-C8LL SET_W0RKSP8CE<R11, LOCCL 

0251 

0092 

020B 

LI 

Rll, LDIO 



0094 

0102' 




0252 


He 



2-C8LL SETW0RKSP8CE < R9> BI8S> 

0253 

0096 

0241 

MOV 

Rl, R9 


0254 

0098 

0400 

CLR 

R0 

SET FL8G FOR C8SSETTE L08D 

0255 


H« 



2-C8LL L08DER < L08DER- 1 0/ 

0256 


He 



3-BI8S, CBS5_FL8G> 

0257 

0098 

0080 

MOV 

©ROMLDR, R2 



0090 

0000 




0258 

009E 

0452 

B 

*R2 


0259 


0080' LO8030 

EQU 

* 


0260 

0080 

0680 

BL 

08BSLDR 



0082 

0000 




0261 

0084 

0000 

D8T8 

LDTBL 


0262 


HeH«Ht****pETURN FROM 8BSL08DER 

H< He He He H< H«**** 

0263 

0086 

1023 

JMP 

LO8050 

ERROR RETURN 

0264 


He 



2- IF ERROR . NE. 0 THEN DO; 

02fc>5 


He 



3- IF PR0GR8M_N8ME_CHHR_C0UNT . 

0«£et» 


H« 



4-THEN C8LL PR I NT < PR0GR8M-N8ME 

020 f 

00H8 

D080 

MOVB 

0LDNMCC, R2 



00HH 

0000 




02t>« 

KJfcJHU 

1308 

JE6 

LO8035 


0269 

008E 

0680 

BL 

©PRCRLF 



00B0 

0000 




02/0 

0882 

1000 

NOP 



^^0271 

00B4 

0208 

LI 

R10, LDNMCC 


V 

00B6 

0088' 




02/2 

0068 

0680 

BL 

©PRNTC 



00B8 

0000 
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02/3 

0080 

1000 

HOP 




02 ^ 4 


006E " LOR035 

EQU 

* 



02/5 

00BE 

C0E0 

MOV 

0LDTBL, R3 




00C0 

00A4' 







********* RETURN FROM CFISSETTE LOADER **** 


I'' 


0002' RETLDR 

EQU 

$ 



02f 8 

0002 

0360 

MOV 

©SAVWP, R13 




00C4 

002 A ' 





02/9 

0006 

04DD 

CLR 

*R12 



0280 

00CS 

C0C3 

MOV 

R3, R3 



0281 

00CA 

1318 

JEQ 

LOR060 



0282 


* 



3- IF PROGRAM-ENTRV . NE. 0 

THEN 

0283 


* 



4- IF CALLER NE OVLV THEN 


0284 

00CC 

C2AD 

MOV 

®R14*2<R13>, R10 




00CE 

001C 





0285 

00D0 

028fl 

01 

R10, 3 




00D2 

0003 





' 0286 

00D4 

1313 

JEQ 

LOR060 



0287 


* 



5-USER-PC * PROGRAM-ENTRY 


0288 

00D6 

C803 

MOV 

R3, eUSRPC 




00D8 

0000 





0289 


* 



5- IF CALLER EQ LOADUPFRONT 

THE 

0290 


* 



6-CALL UPFRONT LOADER 


0291 

00DR 

C28R 

MOV 

R10j. R10 



0292 

00DC 

160F 

JNE 

LOR060 



0293 

00DE 

05C3 

I NOT 

R3 



0294 

00E0 

0693 

BL 

*R3 



0295 

00E2 

1005 

JMP 

LOR050 

ERROR RETURN 


0296 

00E4 

C809 

MOV 

R9, 0USRPC 




00E6 

00D8' 





f 3297 

00E8 

0360 

MOV 

©SAVWP, R13 




00ER 

0004 •' 





0298 

00EC 

1007 

JMP 

LOR060 



0299 


* 



2-END; ELSE 


0300 


00EE' LOR050 

EQU 

* 



030X 


* 



3— CALL ERROR < ' LD00 ' > ; 


0302 

00EE 

020R 

LI 

R10, LDERR 




00h8 

2400 





0303 


00F2 - ' LOR052 

EQU 

$ 



0304 

00F2 

06R0 

BL 

©ERROR 




00F4 

0000 




0305 

00F6 

0360 

MOV 

©SRVWP, R13 




00F8 

00ER x 




0306 

00FH 

071D 

S^TO 

*R13 



030/ 


* 


2-END; 


0308 


001-0' LUH060 

EQU 

* 



0309 


* 



2-RETURN; 


03X0 


* *LINK TO PREV WKSP, RET 

CURR WKSP 


03XX 

00hU 

U4k!U 

BLWP 

@RR 




00 f“ tn 






03X2 

0X00 

045B 

RT 





o 
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ktSJLH 


: 1< 



2-PROCEDURE LOADER- 10; 

tt3XD 


* 



2—/* LOADER- 10 PROVIDES 10 SUP 

b-SXD 


* 



2- FOR THE ROM LOADER. THE 

^^Xb 


'¥ 



3- HAS BEEN PROCESSED BV THE 


* 



3- DRIVER. 

8319 


* 



3-*/ 

tes^k J 


* 




8321 


0102 x LDIO 

EQU 

* 


tested 


* 


MRV USE R8 THIS 

SUBROUTINE IS 

8323 


>K 


NON-STANDARD. 


8324 


* 



5-CHAR-COUNT “CHAR-COUNT -1; 

8325 

0102 

0620 

DEC 

0LDCC 



0104 

008fi' 




832 b 

010fo 

IDlh 

JGT 

LD I 050 


832." 

0108 

131E 

JEQ 

LDI050 


8328 


* 



4- IF CHAR-COUNT »-l THEN DO; 

&s<c:? 


* 



5-L0RD-PRB-0PC0DE » 'READ"; 

833W 

WX0H 

0208 

LI 

R3, READ*LBVTE 



010C 

0900 




8331 

010E 

D808 

movb 

R8, 0LDOPCD 



0118 

0060 ' 




0332 


* 



5-CALL SVC < S VC-CALL-BLOCK > ; 

8333 

0112 

020H 

LI 

R10, LDPRB 



0114 

0064*' 




0334 

0116 

0420 

BLWP 

0SVCALT 



0118 

0068 x 




0335 





5- IF ERROR THEN EXIT; 

033b 

011H 

1T228 

MOVB 

0LDFLG, R8 



0116 

0000 





011E 

0fl28 

SLR 

R8, 2 


t> ;L<y 

0120 

1866 

JOC 

LOA050 


tbg..*3 





5- IF EOF THEN EXIT; 

0-3.40 

0122 

0A13 

SLR 

R3, 1 


iai'tx 

0124 

186L 

JOC 

RETLDR 


0-3-42 


s* 



5-CURR-BUFF-ADDR » LOADER-BUFF 

ks±**s 

0126 

6820 

MOV 

0LDADDR, 0LDCBA 



0128 

0000 





0X2f1 

0000 




0244 

012C 

C220 

MOV 

0LDCC, R8 



012fc 

0104' 




0245 

0120 

DR20 

MOVB 

OCR, 0LDBUF < R8 > 



0122 

0000 





0124 

000W 




U246 


* 



5-OUTPUT LOAD ADDRESS TO LIGHT 

0-3-4 r 

0X-S-6 

6286 

MOV 

R12, R10 


tyjs-HO 

0X.3-8 

0206 

LI 

R12, CRUOFF 



0X.3-H 

8008 




024y 

012C 

2205 

LDCR 

R5, 8 

LORD ADDR TO FP 

0250 

012E 

06C5 

SWPB 

R5 


0251 

0140 

2205 

LDCR 

R5, 8 


0252 

0142 

0605 

SWPB 

R5 


0252 

8144 

C28H 

MOV 

R10, R12 


0254 


* 



4-END; 

0255 


0146' LUX 050 

EQU 

* 


0256 


* 



4-CRLL MOVE-BIT (RETURN- VALUE, C 

0.3-Of 

0146 

62H0 

MOV 

0LDCBA, R10 


f% 

%Jk>3 

0148 

0128' 





* 



5-CURR-BUFF-ADDR ■ CURR-BUFF-fl 

8359 

014H 

85A0 

INC 

0LDCBA 



0146 

0148' 
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U-5.fc.fcJ 

014t 

D29A 


MOVB 

*R10, R10 

0361 

0158 

098A 


SRL 

R10, 8 

U.56*: 

015*! 

H1CA 


A 

R10> R7 


0X0*1 

028ft 


Cl 

R10, >3A 

u 

0X06 

00J.M 




fc J364 

0108 

130D 


JEQ 

LDI860 

0360 

01OH 

028A 


Cl 

R10, >D 


01OU 

0000 




0366 

015E 

1307 


JEQ 

GETRT 

036.' 

0160 
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03 .'8 



& 



0379 


0174' 

LD I 060 

EQU 

* 

0380 

0174 

06A0 


BL 

0LDIO 


0176 

0102' 
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END 
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3-END; 
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3- CALL GETCHAR; 

FLUSH TO END OF RECORD 


2-END 
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IDT " OVELR V '■ 

TITLE: OVERLRV 

OVERLRV SUPERVISOR 

REVISION: 

ORIGINAL 

COMPUTER : 990, RSM 

ABSTRACT: QVLV IS RESPONSIBLE FOR MANAGING THE 
PX990 TRANSIENT AREA. SPECIFICALLV : 

1> DISABLE COMMANDS IN CURRENT OVERLRV. 

2> CALL LOADER TO LOAD OVERLAV. 

3> IF LOAD SUCCESSFUL, ENABLE COMMANDS 
IN NEW OVERLAV. 

CALLING SEQUENCE: 

BL 0OVLV 

R10 CONTAINS POINTER TO COMMAND PARAMETER LIST 
PROCEDURE OVERLAV.; 

/■¥ 

OVERLAV IS RESPONSIBLE FOR 
MANAGING THE PX990 TRANSIENT 
AREA. THIS INCLUDES; 

1> DISABLING COMMANDS FOR THE 
CURRENT AREA. 

2> CALLING THE LOADER TO LOAD 
THE NEW OVERLAV. 

3> ENABLING THE COMMANDS IN THE 
NEW OVERLAV. 

4> BUILDING A TRANSFER VECTOR FOR 
USE BV THE OVERLRV IN CALLING 
THE SVSTEM. 

■■*■/ 

DECLARE 

TRANS I ENT_ ARE A < 700 > FIXED<16> CONTROL TPTR, 
VECTOR <2::- PTR CONTROL TPTR; /* SVC CALL */ 
DECLARE 

1 COMMAND-ENTRV CONTROL CPTR; 

2 COMMAND-STRING CHAR<2>, 

2 COMMAND_ROUT POINTER; 

CPTR » LOC < TRANS I ENT-AREA > + LEN< VECTOR >; 

DO WHILE COMMAND-ENTRV . NE. 0; 

CMDPTR = LOC < COMMAND-TABLE > ; 

CCNT = NO-CMDS; 

DO WHILE CCNT>0; 

IF COMMAND-STRING . NE. CMDPTR. COMMAND 
THEN DO; 

CMDPTR = CMDPTR + LEN < COMMAND > 

CCNT = CCNT -1; 

END; 

CPTR = CPTR + LEN < COMMAND-ENTRV >; 

END 

BIAS= LOC < BGNPXR > 

CALL LORD < FLAG, BIAS, ERROR > 

IF LOAD SUCCESSFUL THEN DO; 

CPTR = LOC < TRANS I ENT-AREA > 

DO WHILE COMMAND ENTRV . NE. 0; 

CMDPTR = LOC < COMMAND-TABLE >; 

CCNT = NO-CMDS 
DO WHILE CCNT>0; 

IF COMMAND-STRING . EQ. CMDPTR. COMMAND 
THEN DO; 

CMDPTR « CMDPTR + LEN < COMMAND >; 


re.es xy rr. 
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0064 





CCNT - CCNT -1; 

0065 





END; 

0066 



* 


CMDPTR. COMMAND_SVC_ROUTINE * COMMAND_R0U 

0067 





CPTR = CPTR + LEN < COMMAND_ENTR V ) ; 

0068 



* 

END; 

0069 



* 

END; ELSE DO; 

0070 



* 

/ 

* I ND I GATE NO COMMANDS */ 

0071 



* 

LOG < TRANS I ENT-AREA > = 0; 

0072 



* 

END; 


0073 




REF'S AND DEF'S 

0074 



* 



0075 




REF 

GETBUF 

0076 




REF 

RETBUF 

0077 




REF 

LWP 

0078 




REF 

RUP 

0079 




REF 

ACL 

0080 




REF 

RR 

0081 




DEF 

OVLV 

0082 




DEF. 

OVLRET 

0083 




REF 

LOADOV 

0084 




REF 

TRNARA START OF TRANSIENT AREA 

0085 




REF 

BGNPXR BEGINNING OF PXR MONITOR 

0086 




REF 

BEGLAL BEGIN OF LINK LOADER. 

0087 




REF 

ENDLAL END OF LINK LOADER. 

0088 




REF 

CMDTBL 

0089 




REF 

NOCMDS 

0090 




REF 

PRCRLF 

0091 




REF 

PRINT 

0092 



*: 



0093 



♦WORKSPACE 

REGISTER DEFINITIONS 

0094 



* 



0095 


0000 

R0 

EQU 

0 

0096 


0001 

R1 

EQU 

1 

0097 


0002 

R2 

EQU 


0098 


0003 

R3 

EQU 

3 

0099 


0004 

R4 

EQU 

4 

0100 


0005 

R5 

EQU 

5 

0101 


0006 

R6 

EQU 

6 

0102 


0007 

R7 

EQU 

7 

0103 


0008 

R8 

EQU 

8 

0104 


0009 

R9 

EQU 

9 

0105 


0008 

R10 

EQU 

10 

0106 


000B 

Rll 

EQU 

11 

0107 


000C 

R12 

EQU 

12 

0108 


000D 

R13 

EQU 

13 

0109 


000E 

R14 

EQU 

14 

0110 


000F 

R15 

EQU 

15 

0111 



It! 



0112 



* 



0113 



it! 



0114 



It* 

- 

1-PROCEDURE OVERLAY; 

0115 


0000 

OVLV EQU 

$ 

0116 



* 

*RLLOC 

, COPY, LINK 

0117 

0000 

0420 


BLWP 

9ACL 


0002 

0000 




\ 0118 



* 


2-/* 

W 0119 





2- OVERLAY IS RESPONSIBLE FOR 

0120 





2- MANAGING THE PX990 TRANS IE 

0121 





2- AREA. THIS INCLUDES; 

0122 





2- 1> DISABLING COMMANDS FOR 


** OVERLAY PROCESSOR =+=+ 
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0123 

* 

2- 


CURRENT AREA. 

0124 

* 

2- 

2> 

CALLING THE LOADER TO 

0125 

* 

2- 


THE NEW OVERLAY. 

0126 


2- 

3> 

ENABLING THE COMMANDS 

0127 

* 

2- 


NEW OVERLAY. 

0128 


2- 

4> 

BUILDING A TRANSFER VE 

0129 


2- 


USE BY THE OVERLAY IN 

0130 

* 

2- 


THE SYSTEM. 

0131 

* 

2- 

*7 



0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 
>0175 

0176 

0177 


0004 

0006 

0000 

0002 


* 

* 

* 

* 

* 

CMDRTN 

CMDLEN 

CDSTR 

CDRTN 

* 


EQU 4 
EQU 6 
EQU 0 
EQU 2 

REGISTER ASSIGNMENTS 


2- DECLARE 

3- TR ANS I ENT _AREA < 700 > FIXED <16 
3-VECT0R<2> PTR CONTROL TPTR; 

2- DECLARE 

3- 1 COMMAND-ENTRY CONTROL CPT 

4- 2 COMMAND_STR I NG CHAR<2>, 

4-2 COMMAND_ROUT POINTER; 


COMMAND TEXT STRING 
COMMAND SERVICE ROUTINE. 


- COMMAND ENTRY POINTER 

- COMMAND TABLE POINTER 

- TEMP 


0004 

0006 


0206 

0000 


LI R6, TRNARA 



0008 

OVLV10 

EQU 

* 

0008 

C596 


MOV 

*R6, *R6 

000A 

1310 

* 

JEQ 

OVLY50 

000C 

000E 

0205 

0000 


LI 

R5, CMDTBL 

0010 

0012 

C120 

0000 

* 

MOV 

0NOCMDS, R4 


0014' 

OVLV20 

EQU 

$ 

0014 

130B 

* 

JEQ 

OVLY50 

0016 

8556 


C 

*R6.. *R5 

0018 

1304 

* 

JEQ 

OVLY40 

001A 

001C 

0225 

0006 

•JL* 

01 

R5, CMDLEN 

001E 

0604 

•T* 

* 

DEC 

R4 

0820 

10F9 


JMP 

OVLY20 


0022' 

OVLV40 

EQU 

$ 

0022 

0024 

04E5 

0004 


CLR 

0CMDRTN<R5 


2-CPTR * LOC < TRANS I ENT_ARE A > + 

2- DO WHILE COMMAND-ENTRY . NE. 

3- CMDPTR = LOC < COMMAND-TABLE >; 

3-CCNT = NO-CMDS; 

3-DO WHILE CCHT>0; 


4- IF COMMAND-STRING . NE. CMDPT 

4-THEN DO; 


4-CMDPTR * CMDPTR + LEN<COMMAN 

4-CCNT » CCNT -1; 

3-END; 


® St St S' 'S St S' S' >3 G G G G G GGGGGGGGG G G G G G G S> G G G G G G G G G © G G G G G G G S' 

ro ro ro ro p.j M m ro ro ro ro ro ro ro ro ro ro ro m ro rv) m m mm p p p p p p p p p pppppp pp 

M M M M M p.t P P P P P P P P PPS S' G G G G G G O G '■£> 'it >4) VO 'O VO VO 'O 'O VO CO CO CO CO CO CO CO 0) CO CO -\! -J 

01 -P W M P G VO CO -\l Ch CH -P W M P G VO CO -••) O-i Ol -P W M P G 'O 0) -J CPi CH -P W M P G VO CO --J CTt CH -P W M P G VO CO 



— * Im*' 

-«nnu J-rr 

ur •_» • 

-i.- mo : Si : too i uooHY.' PEE ZZ/ 1377. 

ERLflV 

PROCE 

5S0R ** 


948935- 

-9901+* PRQE 0005 






3-CPTR ■ CPTR + LEN<COMMAND_EN 

0026 

0226 


fli 

Re, CDRTN+2 


0028 

0004 







H: 



2-END 

002fl 

10EE 


JMP 

OVLV10 



0020 '■ 

OVLV50 

EQU 

% 




H«H« 

LORD 

OVERLflV 




He 



2-BIftS= LOO < BGNPXR-LENGTH OF L 

0020 

0201 


LI 

Rl, BGNPXR 


002E 

0000 







* 



2— CALL LOAD < FLAG, BIAS, ERROR) 

0030 

0680 


BL 

©LOflDOV 


0032 

0000 






0034 

OVLRET 

EQU 

% 




* 



2- IF LOftD SUCCESSFUL THEN DO; 

0834 

0000 


MOV 

R0, R0 


0036 

161E 

»x. 

JNE 

OVL250 




•t 5 



3-CPTR = LOO < TRANS I ENT_ ARE A > 

0038 

0206 


LI " 

R6, TRNftRR 


003ft 

0006 y 







H= 



3-DO WHILE COMMAND ENTRV . NE. 


0030 

OVLZ10 

EQU 

■$ 


0030 

0596 


MOV 

+R6, *R6 


003E 

1310 


JEQ 

OVL260 




* 



4-CMDPTR = LOC < COMMflND_TflBLE > ; 

0040 

0205 


LI 

R5> CMDTBL 


0042 

000E-' 







* 



4-CCNT = NQ-CMDS 

: 0044 

0120 


MOV 

©NOCMDS, R4 


0046 

0012' 







* 



4-DO WHILE CCNT>0; 


0048 y 

OVLZ20 

EQU 

$ 


0048 

1315 


JEQ 

OVLZ50 




H: 



5- IF COMMAND-STRING . EQ. CMDPT 



He 



5-THEN DO; 

004ft 

8556 


0 

*R6, +R5 


i 0040 

1304 


JEQ 

OVLZ30 


i 


H: 



5-CMDPTR = CMDPTR + LEN< COMMON 

004E 

0225 


fil 

R5, CMDLEN 


0050 

0006 







He 



5-CCNT = CCNT -1; 

0052 

0604 


DEC 

R4 




He 



4-END; 

0054 

10F9 


JMP 

OVLZ20 



0056 '' 

OVLZ30 

EQU 

* 




H: 



6-OMDPTR. COMMflND_SVC_ROUT I NE = 

0056 

0966 


MOV 

0CDRTN < R6 > , 

. @CMDRTN<R5> 

0058 

0002 





005ft 

0004 





' 0050 

06R0 


BL 

0PRCRLF 


005E 

0000 





1 0060 

1000 


NOP 



. 0062 

0285 


MOV 

R5, R10 


1 0064 

0209 


LI 

R9, 2 


0066 

0002 





: 0068 

06fl0 


BL 

©PRINT 


006fl 

0000 





■ 0060 

1000 


NOP 



1 


* 



4— CPTR ■ CPTR + LEN < COMMAND-EN 
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0226 

0227 

006E 

0078 

0226 

0004 

H« 

AI 

R6, CDRTN+2 

0228 

0229 

0072 

10E4 

He 

JMP 

OVLZ10 


0230 0074'- OVLZ50 EQU * 

0231 He 

0232 He 

0233 0074 04E0 CLR 0TRNARA 

0076 003A '' 

W234 He 

0235 0078'' OVLZ60 EQU $ 

0236 0078 0420 BLWP @RR 

007A 0000 

0237 007C 045B 

0238 

NO ERRORS 


3-END; 

2- END; ELSE DO; 

3- 7* INDICATE NO COMMANDS #/ 
3-LOC < TRANS I ENT_ ARE A > = 0; 

2-END; 


RT 

END 


OVELAV 


SDSMAC 94 

7075 *D 15 

: 31 : 28 

TUESDAY FEB 22, 

1977. 

LABEL 


VALUE 

DEFN 

REFERENCES 948935-9901 

** 



* 

R 

007E 


0115 

0156 

0164 

0176 

0182 

0188 

0196 





0230 

0235 






ACL 

E 

0002 

0079 

0117 







AI 




0171 

0179 

0211 

0226 




BEGLAL 

E 


0086 








BGNPXR 

E 

002E 

0085 

0185 







BL 




0187 

0219 

0223 





BLWP 




0117 

0236 






C 




0168 

0208 






CDRTN 


0002 

0142 

0179 

0218 

0226 





CDSTR 


0000 

0141 






\ 


CLR 




0177 

0233 






CMDLEN 


0006 

0140 

0171 

0211 






CMDRTN 


0004 

0139 

0177 

0218 






CMDTBL 

E 

0042 

0088 

0160 

0200 






DEC 




0173 

8213 






DEF 




0081 

8082 






END 




0238 







ENDLAL 

E 


0087 








EQU 




0095 

0096 

0097 

0098 

0099 

0100 

0101 





0104 

0105 

0106 

0107 

0108 

0109 

0110 





0140 

0141 

0142 

0156 

0164 

0176 

0182 





0204 

0216 

0230 

0235 




GETBUF 

E 


0075 








IDT 




0004 







JEQ 




0158 

0165 

0169 

0198 

0205 

0209 


•JMP 




0175 

0181 

0215 

0228 




JNE 




0191 







LI 




0154 

0160 

0185 

0194 

0200 

0222 


LOADOV 

E 

0032 

0083 

0187 







LWP 

E 


007 7 








MOV 




0157 

0162 

0190 

0197 

0202 

0218 

0221 

NOCMDS 

E 

0046 

0089 

0162 

0202 






NOP 




0220 

0224 






OVLRET 

D 

0034 

0188 

0082 







QVLV 

D 

0000 

0115 

0081 







OVLV10 

R 

0008 

0156 

0181 







OVLV20 

R 

0014 

0164 

0175 







OVLV40 

R 

0022 

0176 

0169 







OVLV50 

R 

002C 

0182 

0158 

0165 






OVLZ10 

R 

003C 

0196 

0228 







OVLZ20 

R 

0048 

0204 

0215 







OVLZ30 

R 

0056 

0216 

0209 







OVLZ50 

R 

0074 

0230 

0191 

0205 






OVLZ60 

R 

0078 

0235 

0198 







PAGE 




0001 

0003 






PRCRLF 

E 

005E 

0090 

0219 







PRINT 

E 

006A 

0091 

0223 







R0 


0000 

0095 

0190 

0190 






R1 


0001 

0096 

0185 







R10 


000A 

0105 

0221 







Rll 


000B 

0106 








R12 


000C 

0107 








R13 


000D 

0108 








R14 


000E 

0109 








R15 


000F 

0110 








R2 


0002 

0097 








R3 


0003 

0098 








R4 


0004 

0099 

0162 

0173 

0282 

0213 




R5 


0005 

0100 

0160 

0168 

0171 

0177 

0200 

0208 

0211 


PAGE 0097 
0204 0216 


0102 0103 

©115 0139 

0183 0196 


0218 0221 


OVELAV 


SD 

SMAC 94 

7075 *D 15 

: 31 : 20 

TUESDAY, FEB 22, 

1977. 

LABEL 


VALUE 

DEFN 

REFERENCES 

948935- 

9901 

** 



R6 


0006 

0101 

0154 

0157 

0157 

0168 

0179 

0194 

0197 





0218 

0226 






R7 


0007 

0102 








R8 


0008 

0103 








R9 


0009 

0104 

0222 







REF 




0075 

0076 

0077 

0078 

0079 

0080 

0083 





0086 

0087 

0088 

0089 

0090 

0091 


RETBUF 

E 


0076 








RR 

E 

007A 

0080 

0236 







RT 




0237 







RWP 

E 


0078 








TITL 




0002 







TRNARA 

E 

0076 

0084 

0154 

0194 

0233 






PRQE 0008 
0197 0208 


0084 0085 


APPLICATION 


REVISIONS 


N€XT ASSY 



N0TE:S0URCE AND OBJECT ON 
DISC IN SDP 948931. 


SHEET 


REV STATUS 
OF SHEETS 


SHEET 


UNLESS OTHERWISE SPECIFIED 
DIMENSIONS AWE IN INCHES 
TOLERANCES 
ANGLES tl* 

3 PLACE DECIMAL ± 010 
2 PLACE DECIMAL ± 02 


IDENTIFYING NUMBERS 
SHOWN IN PARENTHESES 
FOR REFERENCE ONLY 


INTERPRET DWG IN 
ACCORDANCE WITH 
MIL STD lOO 



\ 


it 7l 



Texas Instruments 

INCORPORATED 

Equipment Group De/let, Texet 


AL, PROMLD, PROM L0ADER-PXR990 


SIZE COOC K3CNT NO 

A 96214 



1 of 3 


Tt-MII C 





























PAGE 000:1 


PKUHLD SDSMAC 947075 =+=B 1.4 : 30 : 09 TUESDAY, JAN 04.. 1977. 


Oh I.) F 

•’Ron 

PROGGRA 

*10 

ER 9 

48937-9901=+:+: , PRGE 000d 

000 ,< 




IDT 

•- PROMLD ■" 

0004 



+: 

TITLE: 

PROMLD 

0005 



+: 


PROM LORD 

0006 




REVISION 


0007 





MODIFIED TO RUN UNDER PXRMRE SYSTEM 

0008 




COMPUTER 

990.. RSM 

0009 



+: 

ABSTRACT 

: THIS PROGRRM WILL LORD THE PROM PROGRAMMER INTO 

001 0 



+: 


MEMORY. ONE PART IS LORDED IN THE OVERLAY AREA 

001.1 



+: 


BY A CALL TO THE OVERLAY DRIVER. THE SECOND PART 

001.2 





IS LORDED INTO THE USER AREA BY CALLING THE LOAD 

00:0 





DRIVER AND SIMULATING AN OVERLAY CALL. 

0014 



+: 

CALLING •„ 

SEQUENCE : 

0015 



+: 


CALLED FROM COMMAND STRING PROCESSOR 

0016 



4-: 


ENTRY - R1.0 POINTS TO COMMAND FARM LIST 

001. 7 



+: 


DESTROYS Ri, R8, R9, R15, R14 

00:19 



+• 

DBF 

PL 

0020 




REF 

ENDBUF, OVLV, LOftDOV, POBIftS 

0021 




PILE 

PRULii 9Z 

0023 


0001 

PI 

EQU 

1 

0024 


0008 

99 

EQU 

8 

0025 


0009 

39 

EQU 

9 

0826 


080H 

R:1 

.0 EQU 

10 

002? 


000B 

R:1 

1 EQU 

ii 

0028 


000F 

R1 

5 EQU 

15 

0030 



•{*• 

+: 


-1-PROCEDURE PROM-LORD < CPL-PO I NTER > 

0031 


0000 * 

PL 

EQU 

$■ 

0032 

0000 

C3CB 


MOV 

Rll, R15 SAVE RETURN ADDRESS 

0033 



* 


-2-CALL OVL..Y < CPL-PO I NTER > 

0034 

0002 

06R8 


BL 

0OVLY 


0004 

0000 




0035 





— 2— DFB.IRS = LOC < I N I T > - PR0G-SI2E 

0036 

0006 

0201 


LI 

Rl, ENDBUF 


0000 

0000 




0837 

000R 

0220 


MOV 

0 PROGS 2.. R8 


0000 

0000 




0038 

00 0E 

6048 


5 

RS, Rl 

0039 



*: 


-2-POINTER = CPL-PO I NTER 

0040 

0010 

020ft 


MOV 

R10.. R8 

0041 

0012 

0278 


MOV 

=+=R8+.. R9 

0042 

0014 

0ft 99 


SLR 

R9.. 9 

0043 



* 


-2- IF FARM Cl> . NE. NULL THEN 

0044 

0016 

1701 


JNC 

PL1 

0045 





-3-POINTER = POINTER + 2 

0046 

00:18 

0508 


INC 

T R8 

0047 


001ft*' 

PL 

.1 EQU 

■$ 

0048 

00 1R 

0ft 19 


SLR 

R9, 1 

0049 





-2- IF FARM < 2 > . NE. NULL THEN 

0050 

00:10 

1781 


JNC 

PL2 

0051 




' 

-3- BIAS = LOG < POINTER!) 

0052 

001E 

0058 


MOV 

=+=R8.. Rl 

8053 


0020 "■ PL. 

.2 EQU 

$■ 

0054 

0020 

C801 


MOV 

Rl, OPGBIfiS STORE PROG BIAS IN OVERLAY 


0022 

0000 




0055 





-2-CALL LOADOV C CPL-PO I NTER, B I AS > 

0056 

0024 

06ft 0 


BL 

0LOADOV 


0026 

0000 




0057 





-1-END PROM-LOAD 


PAGE 080 


PRUNED SDSMRC 947075 *B 14:30:09 TUESDRV.. JAN 04.. 197" 

LOAD PH ON PROGGHAMHER 948937-9901*+ ' 



B *R15 
END 





t 



PROM! D 

5 

DSMRC 9* 

IL075 + 

B 14 

: 30 : ©9 

TUES 

DRV, JRN 04, 

1977. 


LABEL. 

VALUE 

DEFN 

R E F E R E N C E S 





PAGE 0003 






948937- 

9901 

** 



$ R 

p 

002 H 


0031 

00S° 

004? 

0053 





BL 



0034 

0056 






L*EF 



0019 







END 



0059 







ENDBUF E 


0020 

0036 







EGU 



0023 

0024 

0025 

0026 

0027 0028 

0031 

004? 0053 

I DT 



0003 







I NOT 



0046 







J'NC 



0044 

0050 






L 1 



0036 







LORDQV E 


0028 

0056 







MOV 



0032 

0037 

0040 

0041 

0052 0054 



OVLV E 


0020 

0034 







PAGE 



0002 







RGB I AS E 


0020 

0054 







PL D 

0000 

0031 

0019 







PL1 R 

001R 

0047 

0044 







PL. 2 R 

0020 

0053 

0050 







PROG 52 E 


0021 

0037 







R. 1 

0001 

0023 

0036 

0038 

0052 

0054 




R10 

000R 

0026 

0040 







R1.1 

000 B 

0027 

0032 







R15 

00 0F 

0028 

0032 

0058 






R8 

0008 

0024 

0037 

0038 

0040 

0041 

0046 8052 



R9 

0009 

0025 

0041 

0042 

0048 





REF 



0020 

0021 






s 



0038 







SLA 



0042 

0048 






THE 



0001 

* 








j 

1 


APPLICATION 


REVISIONS 


NEXT ASS V 


APPROVED 



NOTE :S0URCE AND OBJECT ON 
DISC IN SDP 948931. 


SHEET 


REV STATUS 
OF SHEETS 


SHEET 


unless otherwise sfecified 

DIMENSIONS AMI IN INCHES 
TOLERANCES 
ANGLES * 1 • I C^K 

1 PLACE DECIMAL ± 010 § 

2 FLACE DECIMAL ± 02 


IDENTIFYING NUMMEt 
SHOWN IN FARENTHESES 
FOR REFERENCE ONLY 



INTERFRET DWG IN 
ACCORDANCE WITH 
MIL STD lOO 



Texas Instruments 

INCORFOR AT E D 

Equipment Group Deflm, Tenet 


AL,MINIT, INITIALIZE M0NIT0R-PXR990 


SIZE cooe IOENT no 

A 96214 



1 of 4 


























MIN IT SDSMAC 947075 *D 

** NEW INITIATE MON** 




11:53:54 FRIDflV, FEB 18, 1977. 

948938-9901** PAGE 0001a 




MINIT 
** NEW 

0084 

0005 

0006 
8007 
0083 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 


SDSMAC 947875 *D 
INITIATE MON** 


11:53:54 FRIDAY. FEB 18. 1977. 
948938-9901** 


PAGE 0002 


IDT 'MINIT' 

* TITLE: DEFINED 

* COMPUTER : 998. ASM 

* ORIGINAL 

*REV I S I ON : 9/5/76 TO SUPPORT PAPER TAPE 

* ABSTRACT: INITIALIZES THE MONITOR WHENEVER IT IS 

* LOADED OR RESTARTED. BRANCHES TO 

* COMMAND STRING PROCESSOR. 

* CALLING SEQUENCE: 

* LOAD OR RESTART MONITOR 

* OR 

* B C-INIT 


0017 




DEF 

INIT 

0018 




REF 

CRUPRT 

0019 




REF 

CSP 

0020 




REF 

SVCSR 

0021 




REF 

SVCWP 

0022 




REF 

DC7331 

0023 




REF 

DCTTVT 

0024 




rEf 

El 

0025 




REF 

FREMEM 

8026 




REF 

GETBUF 

0027 




REF 

INI MEM 

0028 




REF 

FPSTRT 

0029 


1FC8 

CLRERR 

EQU 

>1FC0 

0030 






0031 


0000 

WRTPRT 

EQU 

0 

0032 



* 



0033 


0001 

Rl 

EQU 

1 

0034 


000C 

R12 

EQU 

12 

0035 


0000' 

I NIT 

EQU 

* 

0036 

0000 

02E0 


LWPI 

FREMEM 


0882 

0000 




0037 

0004 

0300 


LI MI 

>2 


0006 0002 


0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0848 

0049 

0050 

0051 

0052 

0053 

0054 
8055 

0056 

0057 


0008 0360 


000A 0201 
000C 0000 
000E C801 
0010 000A 


0012 820C 
0014 0000 
0016 1D00 


0018 C320 
001A 0000 
001C 1D09 
001E 1D0B 


CLEAR PARITY ERRORS 
RSET 

FRONT PANEL INTERRUPT VECTOR 
LI Rl.. El 
MOV Rl. @>A 

TURN OFF PROTECT VIOLATION FLAG AND CLEAR PROTECT RE 
LI R12. CRUPRT 
SBO WRTPRT 
INITIALIZE 33 

MOV 0DCTTYT. R12 MOVE ASR 33 CRU BASE 


SBO >9 
SBO >B 


DATA TERMINAL READV 
CLEAR READ REQUEST 


MI NIT SDSMAC 947875 *D 11:53:54 FRIDAY, FEB 18, 1977. 

** NEW INITIATE MON** 948938-9901** PAGE 0003 



l 


0058 

0020 

1D0C 


SBO 

>C 

CLEAR WRITE REQUEST 

0059 

0022 

1E0F 


SB2 

>F 

DIAGNOSTIC MODE 

0060 

" 


♦ 




0061 



* 

INITIALIZE 733 


0062 



* 




0063 


0024' 

INI 733 

EQU 

* 


0064 

0024 

C320 


MOV 

0DC7331, R12 

MOVE CRU BASE 


0026 

0000 





0065 

0028 

1D09 


SBO 

>9 

DATA TERMINAL READY 

0066 

002A 

1D0A 


SBO 

>A 

CLEAR REQUEST TO SEND 

0067 

002C 

1D0B 


SBO 

>B 

CLEAR READ REQUEST 

0068 

0069 

002E 

1D0C 

* 

SBO 

>C 

CLEAR WRITE REQUEST 

0870 



* 

INITIALIZE MEMORY 

CHAINS 

0071 

0072 

0030 

0420 

* 

BLWP 

0INIMEM 



0032 

0000 





0073 

0034 

0420 


BLWP 

0GETBUF 



0036 

0000 





0074 

0038 

0460 


B 

@CSP 



003A 

0000 





0075 


0000' 


END 

I NIT 



NO ERRORS 


MI IMIT 
LABEL 

% 


o 


BLWP 
CLRERR 
CRUPRT 
CSP 

DC7331 
DCTTVT 
DEF 
El 
END 
EQU 

FPSTRT E 
FREMEM E 
QETBUF E 
IDT 

INI 733 R 
INI MEM E 
INIT D 


LI 

LIMI 

LWPI 

MOV 

PAGE 

R1 

R12 


SDSMAC 347075 *D 11:53:54 FRIDAY, FEB 18, 1977. 
VALUE DEFN REFERENCES 948938 . 9901 


R 003C 


1FC0 

0014 

003A 

0026 

001A 


E 000C 


0002 

0036 

0024 

0032 

0000 


0001 

000C 


PAGE 0004 


0029 

0018 

0019 

0022 

0023 

0024 


0028 

0025 

0026 

0063 

0027 

0035 


0033 

0034 


0035 0063 

0074 

0072 0073 


0050 

0074 
0064 
0055 
0017 
0045 

0075 

0029 0031 0033 0034 0035 0063 

0036 

0073 

0004 


0072 

0017 

0045 
0037 
0036 

0046 
0002 
0045 
0050 


0075 

0050 


0055 

0003 

0046 

0055 


0064 


0064 


REF 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 


0027 

0028 







g] RSET 

0041 








SBO 

0051 

0056 

0057 

0058 

0065 

0066 

0067 

0068 


0026 


SBZ 

SVCSR 

SVCWP 

TITL 

WRTPRT 


E 

E 


0000 


0020 

0021 

0031 


0059 


0001 

0051 


o 


APPLICATION 


REVISIONS 


NEXT ASSY 

USED ON 

|LmJ 

OCSCWIPTION 

DATE 

APPROVED 

, 

7506 

jm 



- 



11 






1 






| 






1 






m 





NOTE: SOURCE AND OBJECT ON 
DISC IN SDP 948931. 
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948939-9901* , 


PAGE 0001a 



SEP 07% 1976. 


MPXIOS SDSMAC 947075 *B 12:14:10 TUESDAV.. 

+* NEW I/O DISPATCH MODULE ** 948939-9901* PAGE 0082 



©004 

IDT 

"MPXIOS-' 

0000 



0006 

* TITLE: 

IODIS 

0007 



0000 

* ORIGINAL: 


0009 

♦REVISIONS : 

09/03/76 TO RECOGNIZE TTV I/O CALLS 

0010 



0811 

* COMPUTER: 

990 

0012 



0013 

* ABSTRACT: 

THIS ROUTINE DOES I/O CALLS FOR PX990 WITH 

0014 


DEVICES: ASR.. CASSETTE.. ASR 33 PAPER TAPE PUNCH/ 

0015 


READER A GROUPING OF SUBROUTINES WHICH 

0016 

* 

CONST ITUE THE PX99-1 10 EXECUTIVE 

t'Ux i 
0018 

:+: 

TABLE OF CONTENTS: 

0019 

:+: 

1. LUND/DEVICE TVPE/DEVICE NAME CONVERSION 

0020 


A. DEVICE NAME TO DEVICE TVPE 

0021 


B. SET DEVICE TVPE IN LUNO TABLE 

0022 


C. LUNO TO DEVICE TVPE 

0023 

:+i 

2. 10 SERVICE DISPATCHER 

0024 

:+: 



c 


o 


MPXIOS 
** NEW I/O 


PAGE 0803 


SDSMAC 947075 *B 12:14:10 TUESDAY, SEP 07, 1976. 
DISPATCH MODULE ** 948939-990.1* 


L1U26 


:+: 




tf 02 »*" 


:+: 

WORKS 

SPACE REGIS 

TER DEFINITIONS 

0028 






0029 

0000 

R0 

EQU 

0 


0030 

0001 

Ri 

EQU 

1 


0031 

0682 

R2 

EQU 

2 


0032 

0003 

R3 

EQU 

3’ 


0033 

0004 

R4 

EQU 

4 


8034 

0005 

R5 

EQU 

5 


0035 

0006 

R6 

EQU 

6 


0036 

0007 

R7 

EQU 

-n 

f 


0037 

0008 

R8 

EQU 

8 


0038 

0009 

R9 

EQU 

9 


8839 

000 ft 

R10 

EQU 

10 


0040 

000B 

Rll 

EQU 

11 


0041 

000C 

R12 

EQU 

12 


0042 

000D 

R13 

EQU 

13 


8043 

000E 

R14 

EQU 

14 


©044 

000F 

R15 

EQU 

15 


0045 






0046 


* 

REFERENCES 


0047 






0048 



REF 

ACL 


8049 



REF 

DCTTVT 


0050 



REF 

DC i** s 1 


0051 



REF 

LGRASC 


0052 



REF 

LGWASC 


0053 



REF 

CSOF'EN 


0054 



REF 

CSBACK 


0055 



REF 

CSFWD 


0056 



REF 

CSRASC 


9057 



REF 

CSRWND 


0058 



REF 

CSUNLD 


0059 



REF 

CSWASC 


0060 



REF 

CSWEOF 


0061 



REF 

PTOPEN 


0062 



REF 

F'TCLOS 


0063 



REF 

PTCEOF 


0064 



REF 

PTOPRW 


0065 



REF 

PTDIRT 


0066 



REF 

PTMfiSC 


0067 



REF 

PTWEOF 


0068 



REF 

PROPEN 


0069 



REF 

PRCLOS 


0070 



REF 

F'RDIRT 


0071 



REF 

F'RDASC 


0072 



REF 

F'TRILL 


©073 



REF 

RR 


0074 






0075 



DEFINITIONS 


8076 


:+: 




0077 



DEF 

CDNDT 


0078 



DEF 

CLDT 


0079 



DEF 

CMDMSK 

CHARACTER MODE 

0080 



DEF 

EFMASK 

END-OF-FILE FLAG 

0081 



DEF 

10 

10 SERVICE DISPATCHER 

0082 



DEF 

SETLUN 


0083 



DEF 

UEMASK 

IJNRECQV. ERROR 

0084 



DEF 

UEFMSK 

UNRECOV ERROR AND EOF 

©085 



DEF 

LOG, DUM, CS 

, PTP, PTR 


MPXJ.U9 bDSMAC 947075 : + : B 

+'* NEW 1/U I..' 1 .1. bh'M I LH 1’iUUUL.t :+::+: 
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948939— BBCii* 


PAGE 0004 



I 



88SSt> 




888 i 


8880 

INUV J VK 

0088 




0088 


0010 

NUMLUN 

0090 




0091 


0080 ■' 

DVNMHt 

009 ;-: 

0000 

40 



8881 

4h 



8802 

47 


0098 

000 J-: 

44 



0004 

55 



0005 

4D 


0094 

0006 

43 



0007 

53 



0008 

31 


0035 

0009 

43 



000ft 

53 



000B 



0096 

0000 

50 



000D 

54 



0 0 0 El 

50 


009? 

000P 

50 



0010 

54 



0011 

nr -•••» 
02 


0098 


00 7F 

DUN 

0099 


0000 

LOG 

011.00 


0001 

CS 

0101 


0002 

PTP 

0102 


0003 

PTR 

0103 


0006 

NUMDEV 

0104 



•+: 

01 0U 



* 

0106 


0812 “ 

DVNDVT 

0X0 

8812 

88 


0100 

0013 

7F 


0109 

0014 

01 


01.10 

0015 

01 


0111 

0016 

02 


0112 

0017 

03 


0113 




0114 


0818 x 

DVNUNT 

0115 

0018 

00 


0:116 

0019 

00 


0117 

001A 

00 


0118 

001B 

01 


0119 

001C 

00 


0120 

001D 

00 


0:121 



+• 

0122 


001E “ 

LUNDVT 

0123 

001E 

00 



001 F 

7F 



0020 

7F 



0021 

7F 


0:124 

0022 

7F 



0023 

7F 


i 

0024 

00 



0825 

01 


0125 

0026 

01 



0027 

7F 



bWU O 

EQU 16 

tWU $ 
TEXT "LOG' 


TEXT "DUM" 


TEXT '-CSl"' 


TEXT CS2 


TEXT '"PTF"" 


TEXT "PTR" 


EQU 127 
EQU 0 
EQU 1 
EQU 2 
EQU 3 
EQU 6 


EQU * 

BYTE LOG- 
BYTE DUN 
BYTE CS 
BYTE CS 
BYTE PTP 
BYTE PTR 

EQU $ 

BYTE 0 
BYTE 0 
BYTE 0 
BYTE 1 
BYTE 0 
BYTE 0 

EQU $ 

BYTE LOG, DUN, DUN, DUN 


BYTE DUN, DUN, LOG, CS 


BYTE CS, DUN, DUN, DUN 


NUMBER OF DEVICES 
MAX. NO. LUNO 
DEVICE NAME TABLE 


TOTAL. NUMBER OF PERIPHERALS 
CONNECTED 

DEVICE NAME TO DEVICE TYPE 


DEVICE NAME TO UNIT NUMBER 


LOGICAL UNIT NO TO DEV TYPE 


o 


IPX I OS 

SDSMflC 947075 *B 

12 : 1 

NEW I/O 

D I S P fl T C H M 0 D U L E : + ; : + : 

948 

8029 

7F 


0X2b 0U2H 

r‘h tsv 1 h U»UM y 

DUN, 


r'h 


0U2U 



00 2D 

7F 


0127 



0128 

002E LUNUNT EQU * 


0129 002E 

08 BVTE 0, 0, 

0, 0 

00 2 F 

00 


0030 

08 


0031 

00 


0130 0032 

00 BVTE 0.* 0, 

0.. 0 

£1033 

00 


0034 

00 


0035 

00 


0131 003b 

01 BVTE 1, 0, 

0, 0 

0037 

00 


0038 

00 


0039 

00 


0132 003fl 

00 BVTE 0, 0, 

0, 0 

0038 

00 


003C 

00 


00 3D 

00 


»: J .JL 

0134 003E 

: +- 

EVEN 


0135 

0108 LBVTE EQU >100 



PAGE ©005 


LOGICAL UNIT NO TO PHVS UNIT 


MOVE BVTE TO LEFT BYTE 


MP/IOS 


SDSMRC 947075 *B 12:14:10 TUESDftV, SEP 07.. 1976. 


* NEW I/O 

DISPATCH MODULE * 

948939-99t 

@137 

008 



* 

* TITLE: 

CDNDT 

0139 

- 



CONVERT DEVICE 

0140 



* REVISION 


0X41 




ORIGNAL 

0142 



* COMPUTER : 

990 

0145 



* ABSTRACT: 

THIS ROUTINE CC 

0144 




DEVICE NAME TO 

01.45 




UNIT NUMBER. 

0.146 



* CALLING S 

EQUENCE : 

014 r 




MOV CADDRESS C 

0148 



* 

BL 0 CDNDT 

0149 




UPON RETURN : 

0150 




R9L : DEV I t 

0151 



* 

R8L : PH VS ] 

0152 





0153 


00 3 E y 

CDNDT EQU 

$ 

0154 

003E 

0289 

LI 

R9, NUMDEV 


0040 

0006 



0155 


0042 •'* 

CDNDT2 EQU 

#• 

015b 

0042 

0609 

DEC- 

R9 

01.57 

0044 

111.0 

JLT 

CDNDT8 

01.58 

0046 

C809 

MOV 

R9, R0 

0159 

0048 

ft 009 

A 

R9, R0 

0160 

004ft 

R009 

A 

R9, R0 

0161 

004 C 

0220 

AI 

R0, DVNAME 


004E 

0000 ■'* 



0162 





0.165 

0050 

C04fl 

MOV 

R10, R1 

0164 

8052 

9C70 

CB 

:+:R0 + , +R1+ 

0165 

0054 

16F6 

JNE 

CDNDT2 

0166 

0056 

9 CFG 

CB 

•+--R0+, *R1+ 

0167 

0058 

16F4 

JNE 

CDNDT2 

0168 

005ft 

9450 

CB 

•+ : RU.* =+ : Rl 

0.169 

085C 

:16F2 

•JNE 

CDNDT2 

0170 





0171 

005E 

D229 

MOVE 

: @D VNUNT < R9 > .. R8 


0060 

0018 " 



01.72 

0862 

D269 

MOVE: 

: 0DVNDVT<R9>, R9 


0064 

0012 •" 

*1* 


U.L i 

01.74 


0066 •** 

*T« 

CDNDT 8 EQU 

* 

01.75 

0066 

045B 

RT 



PAGE 0006 


CONVERT DVNAME TO DVTVPE 
SET LOOP VARIABLE 


END OF LOOP? 
VES 

DEVELOP DVNAME 


IF NOT EQUAL 


SET UNIT NUMBER 


RETURN 


PAGE 008 


i'lF'X 1 0!: 
** NET 

8177 

0178 

0179 

0180 
0.18:1 
0:182 
0:183 
0:184 
0:185 
0180 
0l8 r 
0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 


-7 SDSMfiC 947075 *B 

•■I I/O DISPATCH MODULE +* 
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8068 

8068 

0787 

886R 

C28R 

006C 

1388 

00 6E 

028ft 

0878 

8010 

00 »*' 2 

1405 

8074 

DR89 

0876 

001E 

0078 

DftSS 

887ft 

802E 

00 7 C 

04C7 

807E 

807E 

045B 


+ 

•+: 

:+■ 

* 

* 

:+: 

:+: 




:+: 


TITLE: SETLUN 

SET DEVICE TYPE/UNIT IN LUNO TABLE 

REVISION: 

ORIGINAL 
COMPUTER : 999 

ABSTRACT: THIS ROUTINE SETS DEVICE TVPE AND 

PHYSICAL UNIT NUMBER FOR THE INDICATED LOGICAL 
UNIT NUMBER. 

CALLING SEQUENCE: 

MOV <LUNO>, R10 
MOVB CDEVICE TYPED, R9 
MOVB CUN IT NUMBER’D, R8 
BL 0SETLUN 
UPON RETURN : 

R7 : ERROR CODE <0 = NO ERROR, -1 = ERROR > 


SETLUN EQU * 

SETO R7 ERROR CODE 

MOV R10, R10 
JEQ SLUN90 
Cl R10, NUMLUN 


..THE SLUN90 

MOVB R9, 0LUNDVT <R10> SET DEVICE TVPE 

MOVB R8, 0LUNUNT <R10> SET PHYSICAL UNIT NUMBER 

CLR R7 CLEAR ERROR CODE 

SLUN90 EQU * 

RT 


RETURN 


a os 

HEW I/O 


SDSHRC 947075 *B 12:14:1© TUESDAY, SEP ©7, 1976. 


DISPATCH MODULE ** 


948939-9901* 


PAGE ©088 


oo8@ I. 


TITLE: CLDT 

CONVERT LUNO TO DEVICE TYPE AND UNIT 

REVISION: 

ORIGINAL 
COMPUTER : 99© 

ABSTRACT: THIS ROUTINE RETURNS THE DEVICE TYPE AND 
PHYSICAL UNIT NUMBER FOR THE GIVEN LUNO. 
CALLING SEQUENCE: 

MOV <LUNO>, R10 
BL ©CLDT 
UPON RETURN : 

R9L : DEC 

R9L: DEVICE TYPE < ERROR —1> 

R8L : UNOT NUMBER 


422 / 0080 


!:24 ©084 


0225 0088 
@226 0©8A 


227 ©08E 


229 0092 


R9, DUM+LBYTE 


7F©0 

©28A C I R 

©01© 

1404 -THE C 

D26A MOVE © 

001E-' 

D22A MOVB © 

©02 E " 

0092" CLDT90 EQU $ 

045B RT 


Cl R10, NUMLUN 

-THE CLDT90 

MOVB ©LUND VT < R10 > , R9 

MOVB ©LUNUNT < R10 > , R8 


CONVERTS LUN TO DEVICE TYPE 


IN RANGE? 


RETURN 


MPXIOS SDSMAC 947075 *B 
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PAGE 0009 


0221 



•+: 




9222 



* 

PRB 

DISPLACEMENT 

EQUATES : 

8234 


0000 

IOOP 

EQU 

0 

10 OP CODE 

0235 


0001 

LUNO 

EQU 

i 

LOGICAL UNIT NUMBER 

0236 


0002 

SVSFLQ 

EQU 

Cm 

SYSTEM FLAGS 

0237 


0003: 

USEFLG 

EQU 

mm. 

USER FLAGS 

0238 


0004 

BFADDR 

EQU 

4 

BUFFER ADDRESS 

0239 


0006 

BFLNTH 

EQU 

6 

BUFFER LENGTH 

0240 


0008 

CCOUNT 

EQU 

8 

CHARACTER COUNT 

9241 




FLOG 

SHIFT COUNTS 


0242 


000F 

UE 

EQU 

16—1 

UNRECOV. ERROR 

0243 


000E 

EOFLG 

EQU 

16-2 

EOD-/F-FILE FLG 

0244 


000D 

CHRMOD 

EQU 

16-3 

CHARACTER MODE 

0245 




FLAG 

SET MASKS: 


0246 

0094 

40 

UEMASK 

BVTE 

>48 


0247 

0095 

20 

EFMASK 

BVTE 

>20 


0248 

0096 

10 

CMDMSK 

BVTE 

>10 


0249 

0897 

60 

UEFMSK 

BVTE 

>40+>20 


0250 







0251 


0000 

0CT8RU 

EQU 

0 

OCT MAPPING TABLES 

0253 



•T* 

:+: 

MAP DEVICE TVPE 

CONE ENTRY PER DEV TVPE> 

0254 



:+: 




0255 


8098 

OCTDT 

EQU 

■$ 


0256 

8098 

04 


BVTE 

UTLOG-OCTDT 

LOG 

0257 

0099 

06 


BVTE 

UTCST— OCTDT 

CASSETTE 

8258 

009 fl 

00 


BVTE 

UTFTP— OCTDT 

TAPE PUNCH 

0259 

0098 

08 


BVTE 

UTPTR-OCTDT 

TAPE READER 

0260 

00 9C 



EVEN 



0261 







0262 




MAP 1 

JNIT TO OCT 


0263 







0264 


0098 

UTLOG 

EQU 

$ 

LOG 

0265 

00 9C 

0000 


DATA 

DC7331 

UNIT 0 

8266 


00 9 E •'* 

UTCST 

EQU 

$■ 

CASSETTE 

0267 

009E 

0098 


DATA 

DC7331 

UNIT 0 

W268 

00fl0 

009E *“ 


DATA 

DC7331 

UNIT 1 

0269 


8002 " 

UTPTP 

EQU 

$ 

TAPE PUNCH 

0270 

0002 

0000 


DATA 

DCTTVT 


0271 


0004 ■' 

IJTPTR 

EQU 

■$ 

TAPE READER 

0272 

0004 

0002 


DATA 

DCTTVT 


0273: 







8274 


0009 

RDOCOD 

EQU 

9 

READ ASCII 10 OP CODE 

0275 


0006 

FSPCOD 

EQU 

6 

FORWARD SPACE 10 OP CODE 

0276 


000 F 

MX I OOP 

EQU 

15 

MAXIMUM 10 OP 
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=+==+= MEi 

■4 I/O 

DISPATCH MODULE ** 

948939-9901=+= PAGE 0010 

0278 


©086 ■’ 

10 

EQU 

■$ 

0279 

0086 

0508 


INCT 

R10 SET PRB ADDRESS 

©280 

0088 

C08B 


MOV 

Rll, R2 

0281 

0088 

C0CR 


MOV 

R10, R3 

0282 

008 C 

58E0 


SZCB 

0UEFMSK, 0SVSFLG < R3 > 


00 PE 

0097 





00B0 

0002 




0283 

00B2 

D28 3 


MOVE 

QLUNCKR3X. R10 SET LUNG 


00B4 

£1001 




0284 

00B6 

8988 


SRL 

R10, 8 

©285 

00B8 

8680 


BL 

0CLDT 


9 9 E’ 8 

0080 •'* 




0288 

00BC 

0989 


SRL 

R9, 8 < DEV ICE TVPE> 

0287 

80BE 

j7*| Cj £« 


SRL 

R8, 8 CUN IT NUMBER!) 

0288 

00C0 

DIES: 


MOVE! 

0 1 OOP < R3 !:• , R7 <10 OP CODE!) 


00U2 

0000 




0289 

00C4 

8987 


SRL 

R7.« 8 

0290 

00C6 

0289 


Cl 

R9, DUM 


0008 

007F 




0291 

0008 

160C 


JNE 

1 0020 

0292 

00 CC 

0287 


cr 

R7, RDACOD IF NOT READ OR FORWARD SPACE 


00CE 

0009 




0293 

00D0 

1302 


JEQ 

LL..2 

0294 

00D2 

0287 


Cl 

R7, FSPCOD 


00 D 4 

0006 




0295 

80D6 

1605 


JNE 

I 0010 

0298 


00D8 •" 

LL2 

EQU 

■$ 

0297 

00D8 

F8E0 


SOCB 

0EFMASK, OSVSFLG < R2 > 


00DB 

0095 •** 





00DC 

0002 




0298 

00DE 

04E3 


CLR 

0C COUNT < R3 > 


00E0 

0008 




0299 


00E2" 

1 0010 

EQU 

'$ 

0300 

00E2 

0452 . 


B 

=+=R2 RETURN 

0301 


00 E 4 

1 0028 

EQU 

■$ 

0302 

00E4 

0287 


Cl 

R7, Mft I OOP 


00E6 

000F 




0303: 

00E8 

1201 


JLE 

LL4 

0384 

00 ER 

0452 


B 

=+=R2 

0305 


00EC ■" 

LL..4 

EQU 

$■ 

93:06 

00 EC 

D1R9 


MOVE! 

0OCTDT < R9 > , R6 <DISP TO BEGINNING OF TABLE 


00EE 

0098 •" 




9307 

00F0 

0986 


SRL 

R6, 8 

0398 

00F2 

C148 


MOV 

R8, R5 < UN I T =+=2 > 

0309 

00F4 

0R15 


SLR 

R5, 1 

0310 

00F6 

R185 


fl 

R5, R6 

8311 

00F8 

C1R6 


MOV 

0OCTDT <R6>, R6 


00FR 

0098 •" 




0312 

00FC 

D1.67 


MOVE! 

@ I OF'TBL < R7 > , R5 DISP TO DEV TYPE TABLE BV OPC 


00 FE 

0126 




03:13 

0100 

1211 


JEQ 

10050 IF NULL ON 10 OP CODE 

0314 

0102 

0985 


SRL 

R5, 8 

8315 

0104 

C109 


MOV 

R9, R4 

0316 

0106 

0R14 


SLR 

R4, 1 < DEV TYPE =+= 2 

0317 

0108 

R144 


fl 

R4, R5 

0318 

010R 

Cl 6 5 


MOV 

0 1 OF'TBL <R5>, R5 ADDRESS OF CALLED SUBROUTINE 


0.10C 

0126 ■" 




0319 

010E 

130R 


JEQ 

10050 IF NULL 

0320 

0110 

0420 


BLWP 

0ACL 


0112 

0000 





IPX 1 0: 


SD 
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* ' 

0221 

0:1.14 

0283 


MOV 

R3, R10 

MOVE PRB POINTER TO NEW WKSP 

0322 

0116 

U c'l 4 6 


MOV 

P6, R9 

SET CRU BASE ADDRESS 

0323 

01. IS 

0329 


MOV 

0OCTCRU < R9 > , R12 



01 1R 

0000 





0324 

011C 

0045 


MOV 

R5, R1 

CALL SUBROUTINE 

0325 

011E 

0691 


BL 

*R1 


0326 

0120 

0420 


BLWP 

@RR 



0122 

0000 





0327 


0124-' 

1 0050 

EQU 

$ 


8328 

0124 

0452 


B 

*R2 


0329 


0126" 

IOPTE'L 

EQU 

* 

KEVED BV 10 OP CODE 

0330 

0126 

10 


BVTE 

OPEN— I OPTBL 

00 : OPEN 

0331 

0127 

18 


BYTE 

CLOSE- IOPTBL 

01: CLOSE 

0332 

0128 

20 


BYTE 

CLEOF- I OPTBL 

02: CLOSE EOF 

0333 

0129 

28 


BVTE 

OF'NREW- IOPTBL 

03: OPEN REWIND 

0334 

012R 

30 


BVTE 

CLUNL- IOPTBL 

04: CLOSE UNLOAD 

0335 

012B 

00 


BVTE 

0 


0336 

012C 

7 8 


BVTE 

F SPACE- 1 OPTBL 

06: FORWARD SPACE 

©337 

01 2D 

40 


BYTE 

BSPRCE- IOPTBL 

07: BACK SPACE 

0338 

012E 

00 


BVTE 

0 


0339 

012F 

56 


BVTE 

RHSC I I - I OPTBL 

09: READ ASCII 

0340 

0130 

48 


BVTE 

RDIRCT- IOPTBL 

010: READ DIRECT 

0341 

013:1 

60 


BVTE 

WASCII- IOPTBL 

11: WRITE ASCII 

0342 

0132 

58 


BVTE 

WDIRCT- IOPTBL 

12: WRITE DIRECT 

0343 

0133 

6*8 


BVTE 

WEOF- IOPTBL 

13: WRITE EWD-/F-FILE 

0344 

01.34 

70 


BVTE 

REWIND- IOPTBL 

14: REWIND 

8345 

0135 

i’ o 


BVTE 

UNLOAD- IOPTBL 

15: UNLOAD 

0346 


0136 •" 

OPEN 

EQU 

$ 


0347 

0136 

0000 


DATA 

0 


0348 

0138 

0000 


DATA 

CSOPEN 


0349 

013R 

0000 


DATA 

PTOF'EN 


0350 

01.3C 

0000 


DATA 

PROPEN 


0351 


01 3 E " 

CLOSE 

EQU 

■$ 


8352 

013E 

0000 


DATA 

0 


0353 

0140 

0000 


DATA 

0 


0354 

0142 

0000 


DATA 

F'TCLOS 


0355 

0144 

0000 


DATA 

F'RCLOS 


8356 


0146 “* 

CLEOF 

EQU 

■$ 


0357 

0146 

0000 


DATA 

0 


0358 

0148 

0000 


DATA 

0 


0359 

014R 

0000 


DATA 

F'TCEOF 


0360 

014C 

0008 


DATA 

F'TRILL 


0361 


01 4 E 

OF'NREW 

EQU 



0362 

014E 

0000 


DATA 

0 


0363 

0150 

0000 


DATA 

0 


0364 

0152 

0000 


DATA 

F'TOPRW 


0365 

0154 

0130 **’ 


DATA 

PROPEN 


0366 


0156 •* 

CLUNL 

EQU 



0367 

0156 

0000 


DATA 

0 


0368 

0158 

0 0 0 0 


DATA 

0 


036*9 

0.1. 5 fi 

8142” 


DATA 

F'TCLOS 


03701 

0150 

0144 •** 


DATA 

F'RCLOS 


0371 


015E“ 

FSPACE 

EQU 



0372 

015E 

010010 


DATA 

0 


0373 

0160 

0000 


DATA 

CSFWD 


0374 

0162 

0000 


DATA 

0 


0i375 

0164 

0000 


DATA 

0 


0376 


0166 

BSF'ACE 

EQU 

■$ 


0377 

Oil 6 6 

0000 


DATA 

0 


0378 

0168 

0000 


DATA 

CSBACK 
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0379 

01.68 

0000 


DATA 

0 

0380 

016 C 

0000 


DATA 

0 

0381 

©I 6E 



EVEN 


0382 


016E" 

RDIRCT 

EQU 

■$ 

0333 

016E 

0000 


DATA 

0 

0384 

0170 

0000 


DATA 

0 

0385 

0172 

0140 


DATA 

PTRILL 

0386 

0174 

0000 


DATA 

PRDIRT 

0 3 8 7 


0176 

RASCII 

EQU 

$ 

0388 

0176 

0000 


DATA 

LGRASC 

0389 

0178 

0000 


DATA 

CSRASC 

0390 

8178 

0172 •' 


DATA 

PTRILL 

0391 

0170 

0000 


DATA 

PRDASC 

0392 


017E •" 

WDIRCT 

EQU 

$ 

0393 

017E 

0000 


DATA 

0 

0 9 4 

0180 

0000 


DATA 

0 

0395 

0182 

0000 


DATA 

PTDIRT 

0396 

0184 

0.178-' 


DATA 

PTRILL 

0397 


0186 

W8SCI I 

EQU 

$ 

0398 

0186 

0000 


DATA 

LGWASC 

03199 

0188 

0000 


DATA 

CSWASC 

0400 

0188 

£1000 


DATA 

PTWASC 

040:1 

0180 

0184 - 


DATA 

PTRILL 

0402 


018E '■ 

WEOF 

EQU 

* 

0403 

01 8E 

0000 


DATA 

0 

0404 

0190 

0000 


DATA 

OSWEOF 

0405 

0192 

0000 


DATA 

PTWEOF 

0406 

0194 

0000 


DATA 

0 

0487 


0196 '' 

REWIND 

EQU 

#• 

0408 

0196 

0000 


DATA 

0 

0409 

CD 

H- 

5 i> 

CO 

0000 


DATA 

CSRWND 

0410 

0198 

0000 


DATA 

0 

0411. 

0190 

0000 


DATA 

0 

0412 


019E" 

UNLOAD 

EQU 

$■ 

0413 

01 9E 

0000 


DATA 

0 

0414 

0180 

0000 


DATA 

CSUNLD 

0415 

0.182 

0000 


DATA 

0 

041.6 

0184 

0000 


DATA 

0 

041.7 




END 



NO ERRORS 


I'iPN I OS 


sr 
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LRBEL 


VALUE 

DEFN 

REFERENCES 

948939 - 

9901 

** 
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R 

01.Fl 6 


0091 

0106 

0114 

0122 

0128 

0153 

0155 

0174 

0194 





0283 

0222 

01 226* 

0255 

0264 

0266 

0269 

0271 

0278 



* 


0296 

0299 

0331 

0305 

0327 

0329 

0346 

0351 

0356 





0361 

0366 

0371 

0376 

0382 

0387 

0392 

0397 

0402 





0407 

0412 








A 




0159 

0160 

0310 

0317 






FI CL 

E 


0048 

0320 









ft I 




0161 









B 




0300 

0384 

01328 







BFfiDDR 


0804 

0238 










BFL.NTH 


0006 

8239 










BL 




0285 

0325 








BLWP 




8320 

0326 








BSF'ftCE 

R 

0166 

0376 

0337 









BVTE 




0107 

0108 

0109 

0110 

0111 

0112 

0115 

0116 

0117 





0118 

0119 

0120 

0123 

0124 

0125 

0126 

0129 

0130 





0131 

0132 

0246 

0247 

0248 

0249 

0256 

0257 

0258 





0259 

0330 

0331 

0332 

0333 

8334 

0335 

0336 

0337 





0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 


CB 




0164 

0166 

01168 







C COUNT 


0888 

8248 

8298 









CDNDT 

D 

003E 

8153 

8877 









CDNDT2 

R 

8042 

8155 

0165 

0167 

0169 







CDNDT 8 

R 

0066 

0174 

0157 









C HR HOD 


800D 

U244 










CM 




0198 

0224 

8290 

0292 

0294 

0302 




CL.DT 

D 

0080 

Im*« 1—* 

0078 

8285 








CLDT 98 

R 

0092 

8228 

8225 









CL EOF 

R 

8146 

0356 

8332 









CLOSE 

R 

0:OE 

0351 

0331 









CLR 




0282 

0298 








CL.UNL 

R 

0156 

0366 

0334 









cmdhsk: 

D 

8096 

8248 

0079 









cs 

D 

0001 

0108 

0085 

81019 

8110 

0124 

8125 





CSBACK 

E 


0054 

0378 









CSFWD 

E 


0055 

0373 









C SO PEN 

E 


8053 

0348 









CSRftSC 

E 


8856 

0389 









CSRWND 

E 


0057 

0489 









CSUNLD 

E 


0858 

0414 









CSWRSC 

E 


8859 

0399 









CSWEOF 

E 


0060 

0404 









D FIT ft 




8265 

01267 

0268 

0270 

0272 

0347 

0348 

8349 

8350 





8352 

0353 

01354 

8355 

8357 

0358 

0359 

0360 

0362 





0363 

01364 

0365 

0367 

0368 

8369 

0370 

8372 

0373 





8374 

8375 

8377 

0378 

0379 

0380 

0383 

0384 

0385 





8386 

0130*8 

0389 

0390 

0391 

0393 

0394 

0395 

0396 





0398 

0399 

0408 

0401 

0403 

0404 

0405 

0486 

8408 





0489 

0410 

8411 

8413 

0414 

0415 

0416 



DC 7331 

E 


0050 

0265 

0267 

0268 







DCTTVT 

E 


8849 

• 8270 

0272 








DEC 




0156 









DEF 




8877 

8878 

8879 

0088 

0081 

0882 

0883 

0084 

0085 

DUM 

D 

007F 

8098 

0885 

0108 

0123 

0123 

0123 

0124 

0124 

0125 

0125 





0125 

01126 

0126 

8126 

0126 

0223 

0290 



DVNFlHE 

R 

0000 

0091 

0161 









DVND'v'T 

R 

0012 

0106 

0172 









DVNUNT 

R 

8018 

0114 

0171 









EFMflSK 

D 

0095 

8247 

0080 

0297 









END 0417 


SEP 67, 


1976. 


11 PR I OS 


sc 

>SMflC 94 

7075 1 

*b i; 

LABEL 


VALUE 

DEFN 

REFERENCES 

EOFLG 


000E 

9242 



EQU 




0029 

0030 



* 


0038 

0039 





0091 

0098 





0122 

0128 





0228 

0234 





0243 

0244 





0275 

0276 





0346 

0351 





0392 

0397 

EVEN 




0134 

0260 

F SPACE 

R 

015E 

0371 

0336 


F SR COD 


0006 

0275 

0294 


IDT 




0004 


I NOT 




0279 


ID 

D 

00 R 6 

0278 

0081 


I 0010 

R 

00 E 2 

0299 

0295 


1 0020 

R 

00E4 

0301 

0291 


1 0050 

R 

0124 

0227 

0313 

0319 

I OOP 


0000 

0234 

0288 


IOPTBL 

R 

0126 

8329 

0312 

0318 





0339 

0340 

JEQ 




0197 

8293 

THE 




0199 

0225 

•JLE 




8383 


•JLT 




0157 


•JNE 




0165 

0167 

LBVTE 


0100 

0135 

0223 


LGRASC 

E 


0051 

0388 


LGWflSC 

E 


0052 

0398 


L.I 




0154 

0223 

LL2 

R 

00 D 8 

0296 

0293 


LL4 

R 

00EC 

0305 

0303 


LOG 

D 

0000 

0099 

0085 

0107 

LUNDVT 

R 

001E 

0122 

0200 

0226 

LUNG 


0001 

0235 

0283 


LUNUNT 

R 

002E 

0128 

0201 

0227 

MOV 




0158 

0163 





8321 

0322 

MOVE 




0171 

0172 





0312 


MR I OOP 


000F 

0276 

0302 


NDV'T'VP 


0005 

8087 



NUMDEV 


0006 

0103 

0154 


NUMLUN 


0010 

0889 

0198 

0224 

OCTCRU 


0000 

8251 

0323 


OC'T'DT 

R 

0098 

0255 

0256 

0257 

OPEN 

R 

0136 

0346 

0330 


OPNREW 

R 

01 4 E 

8361 

0333 



PAGE 

PRCLOS E 
PRDRSC E 
PRDIRT E 
PROPEN E 
PTCEOF E 
(PTCLOS E 
PTC 1 1 RT E 
PTOPEN E 
PTOPRW E 
FTP D 


0002 


0002 0003 

0069 0355 0370 

0071 0391 

0070 0386 

0068 0350 0365 

8863 0359 

8062 0354 0369 

9065 0395 

0061 0349 

0064 0364 

0101 0885 


: 14 : 10 TUESDRV, 


948939 - 

-9901 

** 


V 

PAGE 0014 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0040 

0041 

0042 

0043 

0044 

0087 

0089 

0099 

0100 

0101 

0102 

0103 

0106 

0114 

0135 

0153 

0155 

0174 

0194 

0203 

0222 

0235 

0236 

0237 

0238 

0239 

0240 

0242 

0251 

0255 

0264 

0266 

0269 

0271 

0274 

0278 

0296 

0299 

0301 

0305 

©327 

0329 

0356 

0402 

0381 

0361 

0407 

0366 

0412 

0371 

0376 

0382 

0387 


0330 

0341 

0313 

0 _5>.<>1 
0™*4li 

0319 

0332 

0343 

0333 

0344 

0334 0336 0337 

0345 

0169 

0291 

0295 




0123 

0124 





0196 

0280 

0281 0308 

0311 

0315 

0318 

0323 

0324 





0200 

0201 

0226 0227 

0283 

0288 

0306 


0258 

0259 

0306 

0311 

0025 

0136 

0176 

0205 0230 0277 


0111 


MF'.H' I OS 


sc 

SMAC 9 A 

•7075 *B 12 : 14 : 10 

TUESDAV, SEP 07, 

1976. 

LABEL 


VALUE 

DEFN 

REFERENCES 

948939-9901 


** 


PTR 

D 

0003 

01.02 

0085 

8112 






PTR ILL 

E 


0072 

0360 

0385 

0390 

0396 

0401 



PTWASC 

E 


0066 

0400 







PTWEOF 

E 


006 7 

0405 







R@ 


0000 

0029 

0158 

©159 

0160 

0161 

0164 

0166 

0168 

R1 


0001 

0030 

0163 

0164 

0166 

0168 

0324 

0325 


R10 


000ft 

0039 

0163 

0196 

0196 

0198 

0200 

0201 

0224 





0279 

02*1*1 

0283 

0284 

0321 



Rii. 


000B 

0040 

0280 







R12 


000C 

0841 

0323 







R13 


000D 

0042 








R14 


000E 

0843 








R1.5 


000F 

0044 








R2 


0002 

0031 

0280 

0300 

0304 

0328 




R3 


0003 

0032 

0281 

0282 

0283 

0288 

0297 

0298 

0321 

R4 


0004 

0033 

0315 

0316 

0317 





R5 


0005 

0034 

0308 

0309 

0310 

0312 

0314 

0317 

Lblb* 

R6 


0006 

0035 

0306 

0307 

0310 

0311 

0311 

0322 


R7 


0007 

0036 

0195 

0282 

0288 

0289 

0292 

0294 

0302 

R8 


0008 

0037 

0171 

0201 

0227 

0287 

0308 



R9 


0009 

0038 

0154 

0156 

0158 

0159 

0160 

0171 

0172 





0223 

0226 

0286 

0290 

0306 

0315 

0322 

RfiSC 1 1 

R 

0176 

0387 

0339 







ft D ft COD 


0009 

0274 

0292 







RDIRCT 

R 

016E 

0382 

0340 







REF 




0048 

0049 

0050 

0051 

8052 

0053 

0054 





0057 

8058 

0059 

0060 

0061 

0062 

0063 





0066 

0067 

0868 

0069 

0070 

0071 

0072 

REWIND 

R 

0196 

0407 

0344 







RR 

E 


0073 

032b 







RT 




0175 

8204 

0229 





SETL.UN 

D 

0068 

0194 

8082 







SETO 




0195 







SLA 




0309 

0316 






SLUN.90 

R 

007E 

0203 

0197 

01 99 






SOCB 




0297 







SRL 




8284 

0286 

0287 

0289 

0307 

0314 


SVSFLG 


0002 

0236 

0282 

0297 






SZCB 




0282 







TEXT 




0892 

0093 

0094 

0095 

0096 

0097 


TITL 




0001 







HE 


000F 

0242 








UEFMSK 

D 

0097 

024.9 

8084 

0282 






IJEMASK 

D 

0094 

024 b 

0083 







UNLOAD 

R 

019E 

0412 

0345 







USEFLG 


0003 

0237 








UTCST 

R 

889E 

0266 

©257 







UTLOQ 

R 

00 9C 

0264 

0256 







UTPTP 

R 

08R2 

0269 

0258 







UTPTR 

R 

00 ft 4 

0271 

0259 







WflSCII 

R 

0:186 

0397 

• 0341 







WDIRCT 

R 

01 7E 

0392 

0342 







WEOF 

R 

018E 

0402 

0343 








PAGE 0815 


0226 0227 


0318 0324 

©312 


0172 0200 

0323 


0055 8056 
0064 0065 
0073 


REVISIONS 
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Texas Instruments 

INCORPORATED 

Equipment Group Mlm, 7>x«t 


AL, TTYPT, PAPER TAPE DSR-PXR990 


DESIGN activity release 


SIZE CODE IOENT NO 

A 96214 


SCALE I REV 


OHAWING NO 

948941-9901 


sheet 1 of 18 


Tt-MIIC 


SHEET 














TTVPT SDSMflC 947075 *D 12:15:18 FRIDfiV, FEB 18, 1977. 

**PRPER TAPE SER. ROUTINE** 948941-9901 ** 


PAGE 0001A 
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0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
8012 

0013 

0014 

0015 

0016 
0017 
0013 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 




IDT 

* 

* TITLE: 

* 

* 

* ORIGINAL 

* 

* COMPUTER: 

* ABSTRACT: 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


'TTYPT" 

TTYPTU 

DEVICE SERVICE ROUTINE - ASR 33 TTY AS PAPER 

TAPE UNIT 

9/5/76 

REVISION: 

990 

A GROUPING OF SUBROUTINES WHICH CONSTITUE 
A ASR 33 TTY PAPER TAPE DEVICE SERVICE 
ROUTINE. 

TABLE OF CONTENTS 

1. SUBROUTINES PUNCH 

A. OPEN <PTQPEN> 

B. CLOSE <PTCLOS> 

C. CLOSE EOF <PTCEQF> 

D. OPEN REWIND <PTOPRW> 

E. CLOSE UNLOAD <PTCLOS> 

F. WRITE ASCII <PTASC> 

G. WRITE DIRECT <PTDIRT> ' 

H. WRITE EOF <PTWEOF> 

2. SUBROUNTINE READER 

A. OPEN < PROPEN > 

B. CLOSE <PRCL05> 

C. OPEN REWIND < PROPEN > 

D. CLOSE UNLOAD <PRCLOS> 

E. READ ASCII <PTRASC> 

F. READ DIRECT CRDIRCT) 
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DRAPER TAPE SER. ROUTINE** 948941-9901** PRGE 0003 


0035 






0036 


* 

PRB 

EQUATES DISPLACEMENTS 

0037 


* 




0038 

0000 

IOOP 

EQU 

0 

10 OP CODE 

0039 

0001 

LUNO 

EQU 

1 

LOGICAL UNIT NUMBER 

0040 

0002 

SVSFLG 

EQU 

2 

SYSTEM FLAGS 

0041 

0003 

USEFLG 

EQU 

3 

USER FLAGS 

0042 

0004 

BFflDDR 

EQU 

4 

BUFFER ADDRESS 

0043 

0006 

BFLNTH 

EQU 

6 

BUFFER LENGTH 

0044 

0008 

CCOUNT 

EQU 

8 

CHARACTER COUNT 

0045 


* 




0046 


* 

FLAG 

SHIFT COUNTS 


0047 


* 




0048 

000F 

UE 

EQU 

16-1 

UNRECOVERABLE ERROR 

0049 

000D 

CHRMOD 

EQU 

16-3 

CHARACTER MODE 

0050 

000C 

NWFLG 

EQU 

16-4 

NO WAIT FLAG 

0051 


* 




0052 


* 

REFERENCES 


0053 


* 




0054 



REF 

UEMRSK 

UNRECOVERABLE ERROR 

0055 



REF 

EFMRSK 


0056 


*: 




0057 



DEFINITIONS 


0058 


*: 




0059 



DEF 

DCTTVT 


0060 



DEF 

PTOPEN 


0061 



DEF 

PTCLOS 


0062 



DEF 

PTCEOF 


0063 



DEF 

PTOPRW 


0064 



DEF 

PTDIRT 


0065 



DEF 

PTWASC 


0066 



DEF 

PTWEQF 


0067 



DEF 

PROPEN 


8068 



DEF 

PRCLOS 


0069 



DEF 

PRDIRT 


0070 



DEF 

PRDASC 


0071 



DEF 

PTRILL 



TTYPT 

SDS 

>MAC 947075 
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FRIDAY, FEB 18, 1977 

**PAPER 

TAPE SER. 

ROUTINE** 


948941-9901 

OGT’S 


* 




0074 


* 

CRU 

INTERFACE DEFINITIONS 

0075 

- 

* 




0076 

000A 

RTS 

EQU 

>A 

REQUEST TO SEND 

0077 

000B 

WRQ 

EQU 

>B 

WRITE REQUEST 

0078 

000C 

RRQ 

EQU 

>C 

READ REQUEST 

0079 

000D 

NSF 

EQU 

>D 

NEW STATUS FLAG 

0080 


* 



4 

0081 


* 

WORKSPACE REGISTER DEFINITIONS 

0082 


* 




0083 

0000 

R0 

EQU 

0 


0084 

0001 

R1 

EQU 

1 


0085 

0002 

DO 

Ke- 

EQU 

•-> 

Cm 


0886 

0003 

R3 

EQU 

3 


0087 

0004 

R4 

EQU 

4 


0088 

0005 

R5 

EQU 

5 


0089 

0006 

R6 

EQU 

6 


0090 

0007 

R7 

EQU 

7 


0091 

0008 

R8 

EQU 

8 


0092 

0009 

R9 

EQU 

9 


0093 

000A 

R10 

EQU 

10 


0094 

000B 

Rll 

EQU 

11 


0095 

000C 

R12 

EQU 

12 


0096 

000D 

R13 

EQU 

13 


0097 

000E 

R14 

EQU 

14 


0098 

000F 

R15 

EQU 

15 


0099 


* 




0100 


* 




0101 


* 

PROGRAM EQUATES 


0102 


* 




0103 

0000 

ZERO 

EQU 

0 

NULL VALUE 

0104 

0011 

DC1 

EQU 

>11 

READER-ON 

0105 

0012 

DC2 

EQU 

>12 

PUNCH-ON 

0106 

0013 

DCS 

EQU 

>13 

READER-OFF 

0107 

0014 

DC4 

EQU 

>14 

PUNCH-OFF 

0108 

0017 

ETB 

EQU 

>17 

CR REPLACEMENT i 

0109 

0009 

HT 

EQU 

9 

HT VALUE 

0110 

000C 

FF 

EQU 

12 

FORM FEED VALUE 

0111 

0007 

BEL 

EQU 

7 

BELL VALUE 

0112 

0008 

BS 

EQU 

8 

BACKSPACE VALUE 

0113 

000D 

CR 

EQU 

>0D 

CARRIAGE RETURN 

0114 

000A 

LF 

EQU 

>0A 

LINE FEED VALUE 

0115 

0020 

SP 

EQU 

>20 

SPACE VALUE 

0116 

007F 

DEL 

EQU 

>7F 

BELETE VALUE 

0117 

0100 

LBYTE 

EQU 

>100 

LEFT BYTE POS. 1 

0118 


* 




0119 


% 

INFORMATION DATA 


0120 


* 





PAGE 0004 


kJitZtS 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 


0001 13 EOF BVTE DC3 

0002 0D0A EOR DATA CR*LBYTE+LF 

0004 1300 DATA DC3*LBYTE+ZER0 

0006 0000 DRTA ZERO+LBVTE+ZERO 

0008 00 BYTE ZERO 

000A 1400 EOR1 DATA DC4*LBYTE+ZER0 
000C 1200 E0R3 DATA DC2*LBYTE+ZER0 
000E 1100 DC1VAL DATA DC1*LBVTE 
0010 1300 DC3VAL DATA DC3*LBVTE 
0012 1700 ETBVAL DATA ETB*LBVTE 
0014 0700 BELVAL DATA BEL*LBVTE 


E-O-F VALUES 
E-O-R VALUE 


DC1 LEFT BVTE 
DCS LEFT BYTE 
ETB LEFT BYTE 
BEL LEFT BYTE 


TTVPT SDSMAC 947075 *D 

**PAPER TAPE SER. ROUTINE** 
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0133 8016 0D08 CRVAL DATA CR*LBVTE 
g m % j 0134 0018 2000 ASCLQW DATA SP*LBVTE 

Vi# 0135 001 A 7F00 ASCHIG DATA DEL*LBVTE 

0136 001C 02 ERILOP BVTE 2 

0137 001D 05 ERWRFG BVTE 5 

0138 001E 0000 WRTFLG DATA 0 

0139 0020 0000 REDFLG DATA 0 

0140 0022 EVEN 

0141 0022 0020 DCTTVT DATA >20 


948941-9901 ** PAGE 0005 

CR LEFT BVTE 
LEGAL LOW ASCII VALUE 
LEGAL HIGH ASCII VALUE+1 
ILLEGAL OP CODE 
DEVICE NOT OPEN 


CRU BASE ADDR TTV 
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9143 


* 




9144 


* 

OPEN 

PAPER TAPE PUNCH 


9145 


* 


<1> NAME: PTOPEN; 

SETS WRITE FLAG 

0146 






0147 


* 


CALL: BELOUT 


0148 


* 




0149 


* 


<2> NAME: PTOPRW; 

SETS WRITE FLAG AND PUNCHES 

0150 


* 



89 BLANK FRAMES 

8151 


* 




0152 


* 


CALLS: PTOPEN 

AND PUNC80 

0153 


* 




0154 


0024 ' PTOPEN 

EQU 

$ 


0155 

0024 

C10B 

MOV 

Rll, R4 

SAVE RETURN 

0156 

0026 

0760 

ABS 

©WRTFLG 

IS DEVICE ALREADY OPEN? 


0028 

001E' 




0157 

002A 

166A 

JNE 

OPEERR 

YES, IN USE 

0158 

002C 

05A0 

INC 

©WRTFLG 

SET WRITE FLAG 


002E 

001E- 




0159 

0030 

06A0 

BL 

©BELQUT 

OUTPUT TWO BELLS 


0032 

0244' 




0160 

0034 

0454 

B ' 

*R4 

RETURN 

0161 


* 



- 

0162 


0036' PTOPRW 

EQU 

$ 


0163 

0036 

C08B 

MOV 

Rll, R2 

SAVE RETURN 

0164 

0038 

06A0 

BL 

©PTOPEN 



003A 

0024' 




0165 

003C 

06A0 

BL 

©PUNCS9 

PUNCH 89 BLANK FRAMES 


003E 

0230' 




0166 

0040 

0452 

B 

*R2 

RETURN 

0167 


* 




9168 


* 

CLOSE PAPER TAPE PUNCH 


0169 


* 


<1> NAME: PTCLOS; 

RESETS WRITE FLAG 

0179 


* 




0171 


* 


<2> NAME: PTCEOF; 

RESETS WRITE FLAG, PUNCHES E 

0172 


* 



AND 89 BLANK FRAMES 

9173 


* 




0174 


* 


CALLS: PUNC80 

AND PUNEOF 

0175 


* 




8176 


0042' PTCLOS 

EQU 

$ 


0177 

0042 

C08B 

MOV 

Rll, R2 

SAVE RETURN 

0178 

0044 

04E0 

CLR 

©WRTFLG 

RESET WRITE FLAG 


0046 

001E' 




0179 

0048 

0452 

B 

*R2 

RETURN 

0180 


004 A' PTCEGF 

EQU 



0181 

004A 

C10B 

MOV 

Rll, R4 

SAVE RETURN 

0182 

004C 

C08B 

MOV 

Rll, R2 

SAVE RETURN FOR ERR 

0183 

004E 

0760 

ABS 

©WRTFLG 

FLAG SET? 


0050 

001E' 




0184 

0052 

1356 

JEQ 

OPEERR 

NO, ERR 

0185 

0054 

06R0 

BL 

©PTWEOF 



0056 

00EE ' 




0186 

0058 

04E0 

CLR 

©WRTFLG 

RESET WRITE FLAG 


005A 

001E' 




0187 

005C 

06A0 

BL 

©PUNC80 

PUNCH 80 BLANK FRAMES 


005E 

0230' 




(0188 

0060 

8454 

B 

*R4 

RETURN 
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0190 



* 






0191 




WRITE 8SCII 




0192 

* 




N8ME : PTWRSCj 

THIS ROUTINE GETS 8 CH8R. 

FROM 

0193 



* 



USER'S BUFFER 8ND PUNCHES 

RESULT 

0194 






ON 

T8PE TERMIN8TES IF THE 

USER'S 

0195 



* 



IS 

EMPTY. 


0196 



* 


ERRORS: IF DEVICE 

IS NOT OPEN 


0197 



* 






0198 


0062' 

PTWflSC 

EQU 

$ 




0199 

0062 

C08B 


MOV 

Rll, R2 


S8VE RETURN 


0200 

0064 

04C8 


CLR 

R8 


CLE8R OFF SET 


0201 

0066 

0760 


8BS 

©WRTFLG 


IS DEVICE OPEN? 



0068 

001E' 







0202 

0068 

1348 


JEQ 

OPEERR 


NO, RETURN 


0203 

006C 

8888 

NXTCHR 

C 

R8, ACCOUNT < R10 > 

BUFFER EMPTY? 



006E 

0008 







0204 

0070 

1318 


JEQ 

EOREXT 


RETURN 


0205 

0072 

0680 


BL 

0QETCHR 


GET NEXT CH8R. 



0074 

0270- 







0206 

8076 

0249 


8NDI 

R9, DEL*LBVTE 


NO P8RITY, JUST CH8R. 



00 1 ** y 

7F00 







0207 

007fl 

0289 


Cl 

R9, CR*LBVTE 


IS IT CR? 



007C 

0D00 







0208 

007E 

1603 


JNE 

LEGCHK 


NO, IS VALUE LEGAL? 


0209 

0080 

D260 


MOVE 

0ETBV8L, R9 


CR TO ETB 



0082 

0012' 







0210 

0084 

1003 


JMP 

8SCPUN 


DEPOSIT RESULTS 


0211 

0086 

0680 

LEGCHK 

BL 

0LEGCHR 


IS CHAR LEGAL? 



0088 

01F0' 







0212 

008fl 

1002 


JMP 

NEXINC 


OFF SET INCREASE <ERR 

RT> 

0213 

008C 

0680 

fiSCPUN 

BL 

0PUNOUT 


PUNCH ONE CHAR. <GOOD 

RT> 


008E 

0286 







0214 

0090 

0588 

NEK INC 

INC 

R8 


INCREASE OFF SET 


0215 

0092 

0289 


Cl 

R9, DC4*LBVTE 


IS IT PUNCH-OFF? 



0094 

1400 







0216 

0096 

16E8 


JNE 

NXTCHR 


NO, NEXT CHAR 


0217 

0098 

0209 


LI 

R9, DC2*LBVTE 


YES, PUNCH-ON CHAR 



0098 

1200 







0218 

009C 

0680 


BL 

0PUNOUT 


TURN PUNCH BACK ON 



009E 

0286' 







0219 

0080 

10E5 


JMP 

NXTCHR 


CONTINUE 


0220 



*: 






0221 




WRITE END OF RECORD 

OR 

END OF FILE 



0222 * 


0223 

0224 

0225 


0226 

0227 


0228 

0229 

0230 



0082' 

EOREXT 

EQU 

$ 





0082 

0208 


LI 

R8, 7 

NUMB. 

CHAR. 

TO 

BE PUNCHED 

0084 

0007 








0086 

0207 


LI 

R7, EOR 

CHAR. 

8DDR. 

TO 

PUNCH 

0088 

0002' 








0088 

D277 

EORQUT 

MOVB 

*R7+, R9 

CHAR. 

VALUE 

TO 

PUNCH 

008C 

0680 


BL 

0PUNOUT 

PUNCH 

CHAR. 



008E 

0286' 








0080 

0608 


DEC 

R8 

DONE? 




00B2 

16FB 


JNE 

EOROUT 

NO, CONTINUE 


00B4 

0452 


B 

*R2 

RETURN 
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0232 


* 




8233 



WRITE DIRECT 


0234 




NAME: WDIRCTi 

THIS ROUTINE WRITES THE SPECIFIED 

0235 


■¥ 



# OF CHARS. AND TERMINATES WHEN 

0236 


* 



CHAR. COUNT IS DONE, CHECKS 

0237 


* 



WRITE FLAG. 

0238 


* 


CALLS: WEOF 


0239 


* 




0240 


00B6' PTDIRT 

EQU 

$ 


0241 

0086 

0408 

CLR 

R8 

CLEAR OFF SET 

0242 

00B8 

C08B 

MOV 

Rll, R2 

SAVE RETURN 

0243 

00Bfl 

0760 

BBS 

0WRTFLG 

WRITE FLAG SET? 


00BC 

001E-' 




0244 

00BE 

1320 

JEQ 

OPEERR 

NO, DEVICE NOT OPEN 

0245 

0000 

8A88 WDRLOP 

0 

R3, @CCOUNT<R10> OUTPUT DONE? 


0002 

0008 




0246 

0004 

130F 

JEQ 

WDREND 

GO TO EOF SET UP 

0247 

0006 

06A0 

BL 

0GETCHR 

GET CHAR. 


0008 

0270-' 




0248 

00CA 

0249 

AND I 

R9, >FF00 

JUST CHAR. 


0000 

FF00 

* ■ 



0249 

00CE 

06PI0 

BL 

0PUNOUT 

PUNCH CHAR. 


00D0 

0286'' 




0250 

00D2 

0289 

01 

R9, DC4*LBVTE 

PUNCH OFF? 


00D4 

1400 




0251 

00D6 

1604 

JNE 

N0TDC4 

NO, CONTINUE 

0252 

00D8 

0209 

LI 

R9, DC2*LBVTE 

TURN PUNCH-ON 


00DA 

1200 




0253 

00DC 

06A0 

BL 

0PUNOUT 

DO IT 


00DE 

0286' 




0254 

00E0 

0588 N0TDC4 

INC 

R8 

INCREASE OFF SET 

0255 

00E2 

10EE 

JMP 

WDRLOP 

CONTINUE 

0256 

00E4 

0208 WDREND 

LI 

R8, 4 

# CHAR TO PUNCH 


00E6 

0004 




0257 

00E8 

0207 

LI 

R7, EOR+2 

CHAR ADDR. TO PUNCH 


00EA 

0004' 




0258 

80EC 

10DE 

JMP 

EOROUT 

GO DO IT 

0259 


!+! 




0260 


* 

WRITE END OF FILE 


0261 




NAME: PTWEOF.: 

THIS ROUTINE PUNCHES AN E/O/F 

0262 


* 



FOR EITHER DIRECT OR ASCII CHECK 

0263 


* 



SEE IF DEVICE IS OPEN 

0264 


+ 




0265 


00EE ' PTWEQF 

EQU 

% 


0266 

00EE 

C08B 

MOV 

Rll, R2 

SAVE RETURN 

0267 

00F0 

0760 

ABS 

0WRTFLG 

FLAG SET? 


00F2 

001E" 




0268 

©0F4 

1305 

JEQ 

OPEERR 

NO, DEVICE NOT OPEN 

0269 

00F6 

0208 

LI 

R8, 8 

PUNCH 8 SEQ. CHAR. 


00F8 

0008 




0270 

00FA 

0207 

LI 

R7, EOF 

CHAR. ADDR. TO PUNCH 


00FC 

0001' 




0271 

00FE 

10D5 

JMP 

EOROUT 

OUTPUT END OF FILE 
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0273 


* 



0274 


* 

ERROR RETURN ROUTINES 

0275 


* 



8276 


0100 '■ OPEERR 

EQIJ 

$ 

0277 

0100 

FRR0 

SOCB 

0UEMASK, 0S YSFLG < R10 > UNRECOV. ERR 


0102 

0000 




0104 

0002 



0278 

0106 

DRR0 

MOVB 

0ERWRFG, 6USEFLG < R10 > DEVICE NOT OPEN 


0108 

001D" 




010R 

0003 



0279 

010C 

0452 

B 

*R2 RETURN 

0280 

010E 

PTRILL 

EVEN 


0281 

010E 

FRR0 

SOCB 

0UEMASK, 0SVSFLG < R10 ) UNRECOV. ERR 


0110 

0102 ' 




0112 

0002 



0282 

0114 

DRR0 

MOVB 

0ERILQP, 0USEFLG<R10> ILLEGAL OP CODE 


0116 

001C 




0118 

0003 



0283 

0118 

045B 

RT 

RETURN 

0284 


* 



0285 


* 

OPEN 

paper tape READER 

0286 




NAME: PROPEN; THIS ROUTINE SETS READER FLAG 

0287 


* 



0288 


011C- PROPEN 

EQU 

$ 

0289 

0-llC 

0760 

RBS 

0REDFLG IS DEVICE ALREADY OPEN? 


011E 

0020 y 



0290 

0120 

16EF 

JNE 

OPEERR YES, IN USE 

0291 

0122 

05R0 

INC 

0REDFLG SET READ FLAG 


0124 

0020 



0292 

0126 

045B 

RT 

RETURN 

0293 





0294 


* 

CLOSE PAPER TAPE READER 

0295 


* 


NAME: PRCLOS; THIS ROUTINE RESETS READER FLAG 

0296 





0297 


0128' PRCLOS 

EQU 

t 

0298 

0128 

04E0 

CLR 

0REDFLG RESET READ FLAG 


012R 

0020' 



0299 

012C 

045B 

RT 

RETURN 
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U«£Ul 



* 




0302 



* 

READ 

ASCII 


0303 

- 


* 


NAME: PTRASC.; THIS ROUTINE READS CHAR. FROM THE 

0304 



* 


TAPE CHECKS 

FOR LEGAL CHAR. AND TERMINATE 

0305 



* 


IF USER'S BUFFER IS FULL OR CR IS 

0306 



* 


ENCOUNTERED 

, IGNORES LEADING BLANKS. 

0307 



* 


ERRORS: IF DEVICE 

NOT OPEN 

0308 



* 




0309 


012E' 

PRDASC 

EQU 

$ 


0310 

012E 

C08B 


MOV 

Rll, R2 

SAVE RETURN 

0311 

0130 

04C8 


CLR 

R8 

CLEAR OFF SET 

0_i.l2 

0132 

0760 


ABS 

0REDFLG 

DEVICE OPEN? 


0134 

0020" 





0313 

0136 

13E4 


JEQ 

OPEERR 

NO, ERR RETURN 

0314 

0138 

C260 


MOV 

DC1VAL, R9 

TURN ON READER 


013A 

000E " 





0315 

01 3C 

06A0 


BL 

0PUNOUT 

SEND TO TTY 


013E 

0286"' 





0316 

0140 

06A0 

NULOOP 

BL- 

0REDCHR 

GET CHAR. 


0142 

027 A" 





0317 

0144 

0249 


AND I 

R9, DEL*LBYTE 

REMOVE PARITY, JUST CHAR. 


0146 

7F00 





0313 

0148 

0289 


Cl 

R9, ZERQ*LBVTE 

IS IT NULL? 


014A 

0000 





0319 

014C 

13F9 


JEQ 

NULOOP 

YES, IGNORE 

0320 

014E 

0289 

FIRCHR 

Cl 

R9, DC3*LBVTE 

IS IT END OF FILE? 


0150 

1300 





0321 

0152 

1327 


JEQ 

FI LEND 

YES, RETURN 

0322 

0154 

8A88 

CHRLOP 

C 

R8, ®BFLNTH<R10> 

BUFFER FULL? 


0156 

0006 





0323 

0158 

1318 


JEQ 

BUFEND 

YES, LOOK FOR EOR 

0324 

015A 

0289 


Cl 

R9, CR*LBYTE 

IS IT A CR? 


015C 

0D00 





0325 

015E 

1318 


JEQ 

BUFEND 

YES, TERMINATE 

0326 

0160 

0289 


Cl 

R9, ETB*LBYTE 

IS IT A ETB? 


0162 

1700 





0327 

0164 

1603 


JNE 

CHKLEG 

NO, IS IT STILL LEGAL? 

0328 

0166 

D260 


MOVB 

0CRVAL, R9 

CHANGE ETB TO CR 


0168 

0016' 





0329 

016A 

1003 


JMP 

CHRSTR 

GO TO STORE PROCESS 

0330 

016C 

06A0 

CHKLEG 

BL 

0LEGCHR 

CHECK FOR LEGAL CHAR. 


016E 

01F0"' 





0331 

0170 

1009 


JMP 

OFF INC 

OFF SET INCREASE 

0332 

0172 

06A0 

CHRSTR 

BL 

0STRCHR 

STORE RESULTS 


0174 

0266' 





0333 

0176 

0289 


Cl 

R9, DC3VAL 

IS IT READER-OFF? 


0178 

0010' 





0334 

017A 

1604 


JNE 

OFF INC 

NO, NEXT CHAR 

0335 

017C 

0209 


LI 

R9, DC1VAL 

YES, READER-ON VALUE 


017E 

000E ' 





0336 

0180 

06A0 


BL 

0PUNOUT 

TURN READER BACK ON 


0182 

0286 ' 





0337 

0184 

8588 

OFFING 

INC 

R8 

INCREASE OFF SET 

0338 

0186 

06A0 


BL 

0REDCHR 

GET NEXT CHAR. 


©188 

027A' 





0339 

018A 

0249 


AND I 

R9, DEL*LBYTE 

REMOVE PARITY 


018C 

7F00 





0340 

018E 

10E2 


JMP 

CHRLOP 

TEST CHAR. LOOP 

0341 

0190 

06A0 

BUFEND 

BL 

0EORCHR 

MOVE TAPE TO EOR 


0192 

0220"' 
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0j-4ci 

0194 

CASS 


MOV 

R8, 0CCOUNT<R10> 

STORE CHARS. READ 

0343 

0196 

0198 

0008 

C260 

PRDOFF 

MOV 

0DC3VAL, R9 

TURN READER OFF 

0344 

019A 

019C 

0010' 

06A0 


BL 

0PUNOUT 

SEND TO TTV 

0345 

019E 

01A0 

0286' 

0452 


B 

*R2 

NOT E-O-F RETURN 

03:46 

01A2 

FAA0 

FI LEND 

SOCB 

©EFMASK, ®SVSFLG<R10> SET EOF FLAG 

0347 

01A4 

01A6 

01A8 

0000 

0002 

10F7 


JMP 

PRDOFF 

RETURN 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

01AA 

01AA ' 
04C8 

* 

* 

* 

* 

* 

PRDIRT 

READ 

EQU 

CLR 

DIRECT 

NAME: RDIRCT; THIS ROUTINE READS ALL CHARS. AND 
TERMINATES IF THE BUFFER GETS FULL, IGNOR 
LEADING NULLS 

% 

R8 CLEAR OFF SET 

0356 

01AC 

C08B 


MOV 

Rll, R2 

SAVE RETURN 

0357 

01AE 

0760 


ABS 

©REDFLG 

IS DEVICE OPEN? 

0358 

01B0 

01B2 

0020 ' 
13A6 


JEQ 

OPEERR 

DEVICE NOT OPEN 

0359 

01B4 

C260 


MOV 

DC1VAL, R9 

TURN READER ON 

0360 

01B6 

01B8 

000E ' 
06A0 


BL 

©PUNOUT 

SEND TO TTV 

0361 

01BA 

01BC 

0286 ' 
06A0 

NULLOP 

BL 

0REDCHR 

GET CHAR. 

0362 

01BE 

01C0 

027 A" 
0249 


AND I 

R9, >FF00 

CHAR. + PARITY 

0363 

01C2 

01C4 

FF00 

8289 


Cl 

R9, ZERO*LBVTE 

IS IT NULL? 

0364 

01C6 

01C8 

0000 

13F9 


JEQ 

NULLOP 

VES, IGNORE 

0365 

01CA 

8A88 

NTDIRC 

C 

R8, @BFLNTH<CR10> 

BUFFER FULL? 

0366 

01CC 

01CE 

0006 

130F 


JEQ 

RDIRDN 

RETURN 

0367 

01D0 

06A0 


BL 

©STRCHR 

STORE CHAR. 

0368 

01D2 

01D4 

0266' 

0289 


Cl 

R9, DC3VAL 

IS IT READER-OFF, 

0369 

01D6 

01D8 

0010' 

1604 


JNE 

UP INC 

NO, NEXT CHAR 

0370 

01DA 

0209 


LI 

R9, DC1VAL 

VES, READER-ON VALUE 

0371 

01DC 

01DE 

000E ' 
06A0 


BL 

0PUNOUT 

TURN READER BACK ON 

0372 

01E0 

01E2 

0286' 

0588 

UP INC 

INC 

R8 

INCREASE OFF SET 

0373 

01E4 

06A0 


BL 

©REDCHR 

GET NEXT CHAR. 

0374 

01E6 

01E8 

027 A" 
0249 


AND I 

R9, >FF00 

CHAR. + PAR I TV 

0375 

01EA 

01EC 

FF00 

10EE 


JMP 

NTDIRC 

CONTINUE 

0376 

01EE 

10D0 

RDIRDN 

JMP 

BUFEND 

LOOK FOR END-OF-RECORD 


TTYPT SDSMAC 947075 *D 13:15:10 FRIDAY, FEB 18, 1977. 

**PAPER TAPE SER. ROUTINE** 948941-9901 ** PAGE 0012 


0378 

0379 

0380 

01F0 

01F0' 

C0CB 

* CHECKS FOR LEGAL ASCII 
LEGCHR EQU * 

MOV Rll, R3 

CHARACTER 

SAVE RETURN 

0381 

01F2 

0289 

Cl 

R9, HT*LBVTE 

IS IT HT? 

0382 

01F4 

01F6 

0900 

1312 

JEQ 

LEGEND 

YES, LEGAL CHAR. 

0383 

01F8 

0289 

Cl 

R9, FF*LBVTE 

IS IT FF? 

0384 

01FA 

01FC 

0C00 

130F 

JEQ 

LEGEND 

YES, LEGAL CHAR. 

0385 

01FE 

0289 

Cl 

R9, BEL*LBVTE 

IS IT BEL? 

0386 

0200 

0202 

0700 

130C 

JEQ 

LEGEND 

YES, LEGAL CHAR. 

0387 

0204 

0289 

Cl 

R9, BS*LBVTE 

IS IT BS? 

0388 

0206 

0208 

0800 

1309 

JEQ 

LEGEND 

YES, LEGAL CHAR. 

0389 

020A 

0289 

Cl 

R9, DC3VAL 

DC3 FOR STANDALONE 

0390 

020C 

020E 

0010 * 
1306 

JEQ 

LEGEND 

YES, LEGAL CHAR. 

0391 

0210 

9809 

CB 

R9, 0ASCLOW 

BELOW BOTTOM RANGE? 

0392 

0212 

0214 

0018' 

1104 

JLT 

LEGBAD 

NOT LEGAL CHAR 

0393 

0216 

9809 

CB 

R9, 0ASCHIG 

ABOVE TOP RANGE? 

0394 

0218 

021A 

001R' 

1401 

JHE 

LEGBAD 

NOT LEGAL CHAR 

0395 

021C 

0503 

LEGEND INCT 

R3 

PROPER RETURN 

0396 

021E 

0453 

LEGBAD B 

*R3 

RETURN 

0397 

0398 

0399 

0400 

0401 

0220 

0220-' 

C0CB 

* 

* LOOKS FOR 

* 

EORCHR EQU 
MOV 

READER OFF CHARACTER 

% 

Rll, R3 SAVE RETURN 

0402 

0222 

0289 

ROFLOP Cl 

R9, DC3*LBVTE 

READER OFF? 

0403 

0224 

0226 

1300 

1303 

JEQ 

EOREND 

YES, QUIT 

0404 

0228 

06A0 

BL 

0REDCHR 

GET NEXT CHAR. 

0405 

022A 

022C 

027 A' 
10FA 

JMP 

ROFLOP 

NO, KEEP LOOKING 

0406 

022E 

0453 

EOREND B 

*R3 

RETURN 
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0408 

0409 

0410 

0411 

0412 

0230 

0230' 

C0CB 

* 

* PUNCHES : 

:+i 

PUNC80 EQU 
MOV 

80 BLANK FRAMES 

$ 

Rll.. R3 

SAVE RETURN 

0413 

0232 

0208 


LI 

R8/ 80 

CHAR. TO PUNCH 

0414 

0234 

0236 

0050 

0209 

PUNLOP 

LI 

R9/ ZERO 

NULL IN R9 

0415 

0238 

023A 

0000 

06A0 


BL 

0PUNOUT 

PUNCH CHAR. 

0416 

023C 

023E 

0286' 

0608 


DEC 

R8 

DONE? 

0417 

0240 

16FA 


JNE 

PUNLOP 

NO/ CONTINUE 

0418 

0242 

0453 


B 

*R3 

RETURN 

0419 

0420 

0421 

0422 

0423 

0424 

0244 

0244' 

C0CB 

* 

* 

* 

:* 

BELQUT 

OUTPUTS TWO BELLS WAITS FOR CR 
EQU $ 

MOV R11/R3 SAVE RETURN 

0425 

0246 

€260 


MOV 

0EOR1/ R9 

TURN PUNCH OFF 

0426 

0248 

024A 

000 A' 
06A0 


BL 

0PUNOUT 

PUNCH IT 

0427 

024C 

024E 

0286' 

€260 


MOV 

OBELVAL/ R9 

PUT BELL VALUE IN R9 

0428 

0250 

0252 

0014' 

06A0 


BL 

ePUNOUT 

PUNCH IT 

0429 

0254 

0256 

0286' 

06A0 


BL 

0PUNOUT 

PUNCH IT AGAIN 

0430 

0258 

025A 

0286' 

06A0 

DEL IMP 

BL 

0REDCHR 

GET CHAR. 

0431 

825C 

025E 

027 A' 
0289 


Cl 

R9/ DEL*LBVTE 

IS IT A DEL? 

0432 

0260 

0262 

7F08 

16FB 


JNE 

DELINP 

NO/ KEEP WAITING 

0433 

0264 

0453 


B 

*R3 

RETURN 
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0435 



* 




0436 




PUTS 

CHARACTER INTO 

USER'S BUFFER 

0437 

' 


* 




0438 


0266-' 

STRCHR 

EQU 

$ 


0439 

0266 

C06A 


MOV 

©BFADDR < R10 > . R1 

GET ADDRESS 


0268 

0004 





0440 

026A 

A048 


A 

R8. R1 

BUFFER OFF SET 

0441 

0260 

D449 


MOVB 

R9. *R1 

STORE 

0442 

026E 

045B 


RT 


RETURN 

0443 



* 




0444 




GETS 

CHARACTER FROM 

USER'S BUFFER 

0445 



* 




0446 


0270' 

GETCHR 

EQU 

$ 


0447 

0270 

C06A 


MOV 

©BFADDR < R10 > . R1 

GET ADDRESS 


0272 

0004 





0448 

0274 

A048 


A 

R8. R1 

BUFFER OFFSET 

0449 

0276 

D251 


MOVB 

*R1. R9 

GET VALUE 

0450 

0278 

045B 


RT 


RETURN 

0451 







0452 



* 

READS ONE CHARACTER 


0453 



* 

* 



0454 

027A 


REDCHR 

EVEN 


> 

0455 

027A 

1F0C 

REDRDV 

TB 

RRQ 

READV TO READ 

0456 

0270 

16FE 


JNE 

REDRDV 

NO. WAIT 

0457 

027E 

0409 


CLR 

R9 

I/O STORAGE REGISTER CLEAR 

0458 

0280 

3609 


STCR 

R9. 8 

PUT IN LEFT BVTE 

0459 

0282 

1D0C 


SBO 

RRQ 

CLEAR REQUEST 

0460 

0284 

045B 


RT 


RETURN 

0461 



* 




0462 



* 

WRITE ONE CHARACTER 


0463 



:4c 




0464 

0286 


PUNOUT 

EVEN 



0465 

0286 

1D0A 


SBO 

RTS 

TERMINAL READV? 

0466 

0288 

3209 


LDCR 

R9.. 8 

GET VALUE 

0467 

028A 

1F0B 

MRQRDV 

TB 

WRQ 

CLEAR IT 

0468 

0280 

16FE 


JNE 

WRQRDV 

NO. WAIT 

0469 

028E 

1D0B 


SBO 

WRQ 

NOW CLEAR IT 

0470 

0290 

1E0A 


SB2 

RTS 

RESET 

0471 

0292 

045B 


RT 


RETURN 

0472 




END 




NO ERRORS 
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LABEL VALUE DEFN 
$ R 0294 



A 


ABS 
AND I 




ASCHIG 

R 

001A 

0135 

ASCLOW 

R 

0018 

0134 

ASCPUN 

B 

R 

008C 

0213 

BEL 


0007 

0111 

BELOUT 

R 

0244 

0423 

BELVAL 

R 

0014 

0132 

BFADDR 


0004 

0042 

BFLNTH 

BL 


0006 

0043 


BS 0008 0112 

BUFEND R 0190 0341 

BVTE 

C 

CB 

CCOUNT 0008 0044 

CHKLEG R 016C 0330 

C CHRLQP R 0154 0322 

CHRMOD 000D 0049 

CHRSTR R 0172 0332 

Cl 

CLR 

CR 000D 0113 

CRVAL R 0016 0133 

DATA 

DC1 0011 0104 

DC1VAL R 000E 0129 

DC2 0012 0105 

DC3 0013 0106 

DC3VAL R 0010 0130 

DC4 0014 0107 

DCTTVT D 0022 0141 

' DEC 
DEF 

DEL 007F 0116 

DELINP R 025A 0430 

EFMASK E 01A4 0055 

END 

EOF R 0001 0122 

EOR R 0002 0123 

EOR1 R 000A 0127 

O E0R3 R 000C 0128 

EORCHR R 0220 0400 

EOREND R 022E 0406 

EGREKT R 00R2 0223 

EORGIJT R 00AA 0226 

EQU 


REFERENCES 

948941 

-9901 

** 

0154 

0162 

0176 

0180 

0198 

0288 

0297 

8309 

0354 

0379 

0446 





0440 

0448 




0156 

0183 

0201 

0243 

0267 

0206 

0248 

0317 

0339 

0362 


0393 

0391 

0210 


0160 

0166 

0179 

0188 

0230 

0418 

0433 




0132 

0159 

0427 

0385 




0439 

0447 




0322 

0365 




0159 

0164 

0165 

0185 

0187 

0227 

0247 

0249 

0253 

0315 

0338 

0341 

0344 

0360 

0361 

0415 

0387 

0426 

0428 

0429 

0430 

0323 

0325 

0376 



0121 

0122 

0126 

0136 

0137 

0203 

0245 

0322 

0365 


0391 

0393 




0203 

0245 

0342 




0327 

0340 

0329 


0207 

0215 

0250 

0318 

0320 

0368 

0381 

0383 

0385 

0387 

0178 

0186 

0200 

0241 

0298 

0123 

0328 

0133 

0207 

0324 


0123 

0124 

0125 

0127 

0128 

0133 

0129 

0134 

0135 

0138 

0139 

0314 

0335 

0359 

0370 


0128 

0217 

0252 



0122 

0124 

0130 

0320 

0402 

0333 

0343 

0368 

0389 


0127 

0059 

0215 

0250 



0228 

0416 




0059 

0060 

0061 

0062 

0063 

0068 

0069 

0070 

0071 


0135 

0206 

0317 

0339 

0431 


0432 

0346 

0472 

0270 

0225 0257 

0425 

0341 

0403 

0204 

0229 0258 0271 

0038 0039 0040 


PAGE 0015 


0223 

0240 

0265 

0276 

0400 

0411 

0423 

0438 

0289 

0312 

0357 


0374 




0279 

0345 

0396 

0406 


0205 

0211 

0213 

0218 

0316 

0330 

0332 

0336 

0367 

0371 

0373 

0404 


0324 

0326 

0333 

0363 

0389 

0402 

0431 


0311 

0355 

0457 


0129 

0130 

0131 

0132 

0141 





0064 0065 0066 0067 


0041 0042 0043 0044 0048 0049 
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LABEL VALUE DEFN 


o 


ERILOP R 001C 0136 

ERWRFG R 001D 0137 

ETB 0017 0108 

ETBVAL R 0012 0131 

EVEN 

FF 000C 0110 

FI LEND R 01A2 0346 

FIRCHR R 014E 0320 

GETCHR R 0270 0446 

HT 0009 0109 

, IDT 
INC 
INCT 

IOOP 0000 0038 

JEQ 


JHE 

JLT 

IMP 

C .JNE 

LBVTE 0100 0117 


LDCR 


LEGBAD 

R 

021E 

0396 

LEGCHK 

R 

0086 

0211 

LEGCHR 

R 

01F0 

0379 

LEGEND 

R 

021C 

0395 

LF 

LI 


000A 

0114 

LUNG 


0001 

0039 


MOV 


flOVB 


NEXINC 

R 

0090 

0214 

N0TDC4 

R 

00E0 

0254 

NSF 


000D 

0079 

NTDIRC 

R 

01CA 

0365 

NULLOP 

R 

01BC 

0361 

NULOOP 

R 

0140 

0316 

NWFLG 


000C 

0050 

4ffkNXTCHR 
OFF INC 

R 

006C 

0203 

R 

0184 

0337 

OPEERR 

PAGE 

R 

0100 

0276 

PRCLOS 

D 

0128 

0297 


REFERENCES 948941-9901 ** 


0050 

0076 

0077 

0078 

0079 

0087 

0088 

0089 

0090 

0091 

0096 

0097 

0098 

0103 

0104 

0109 

0110 

0111 

0112 

0113 

0154 

0162 

0176 

0180 

0198 

0288 

0297 

0309 

0354 

0379 

0446 

0282 

0278 

0131 

0209 

0326 




0140 

0383 

0321 

0280 

0454 

0464 


0205 

0381 

0004 

0247 




0158 

0395 

0214 

0254 

0291 

0337 

0184 

0202 

0204 

0244 

0246 

0323 

0325 

0358 

0364 

0366 

0390 

0394 

0392 

0403 




0210 

0212 

0219 

0255 

0258 

0347 

0375 

0376 

0405 


0157 

0208 

0216 

0229 

0251 

0417 

0432 

0456 

0468 


0123 

0124 

0125 

0127 

0128 

0133 

0134 

0135 

0206 

0207 

0317 

0318 

0320 

0324 

0326 

0385 

0466 

0387 

0402 

0431 


0392 

0208 

0394 




0211 

0330 




0382 

0123 

0384 

0386 

0388 

0390 

0217 

0224 

0225 

0252 

0256 

0370 

0413 

0414 



0155 

0163 

0177 

0181 

0182 

0314 

0342 

0343 

0356 

0359 

0425 

0427 

0439 

0447 


0209 

0212 

0251 

0226 

0278 

0282 

0328 

0375 

0 - 5*84 

0319 





0216 

0219 




0331 

0334 




0157 

0184 

0202 

0244 

0268 

0002 

0003 

0034 

0072 

0142 

0377 

0068 

0407 

0434 




PAGE 0016 


0083 

0034 

0085 

0086 

0092 

0093 

0094 

0095 

0105 

0106 

0107 

0108 

0114 

0115 

0116 

0117 

0223 

0240 

0265 

0276 

0400 

0411 

0423 

0438 


0372 


8268 

0313 

0319 

0321 

0332 

0384 

0336 

0388 


0271 

0329 

0331 

0340 

0290 

0327 

0334 

0369 

0129 

0130 

0131 

0132 

0215 

0217 

0250 

0252 

0339 

0363 

0381 

0383 


0257 

0269 

0270 

0335 

0199 

0242 

0266 

0318 

0380 

0401 

0412 

0424 

0441 

0449 




0290 0313 0358 

0189 0231 0272 0300 


PAGE 0017 
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LABEL VALUE DEFN REFERENCES 948941-9901 ** 


PRDASC 

D 

012E 

0309 

0070 









^"VPRDIRT 

IJPRDQFF 

D 

01AA 

0354 

0069 









R 

0198 

0343 

0347 









PROPEN 

D 

011C 

0288 

0067 









PTCEOF 

D 

004A 

0180 

0062 









PTCLOS 

D 

0042 

0176 

0061 









PTDIRT 

D 

00B6 

0240 

0064 









PTOPEN 

D 

0024 

0154 

0060 

0164 








PTOPRW 

D 

0036 

0162 

0063 









PTRILL 

D 

010E 

0280 

0071 









PTWASC 

D 

0062 

0198 

0065 









PTWEOF 

D 

00EE 

0265 

0066 

0185 








PUNC80 

R 

0230 

0411 

0165 

0187 








PUNLOP 

R 

0236 

0414 

0417 









PUNOUT 

R 

0286 

0464 

0213 

0218 

0227 

0249 

0253 

0315 

0336 

0344 

0360 





0371 

0415 

0426 

0428 

0429 





R0 


0000 

0083 










, R1 


0001 

0084 

0439 

0440 

0441 

0447 

0448 

0449 




R10 


000A 

0093 

0203 

0245 

0277 

0278 

0281 

0282 

0322 

0342 

0346 





0365 

0439 

0447 







Rll 


000B 

0094 

0155 

0163 

0177 

0181 

0182 

0199 

0242 

0266 

0310 





0356 

0380 

0401 

0412 

0424 


* 



R12 


000C 

0095 










R13 


000D 

0096 










R14 


000E 

0097 










R15 


000F 

0098 










R2 


0002 

0085 

0163 

0166 

0177 

0179 

0182 

0199 

0230 

0242 

0266 





0279 

0310 

0345 

0356 








0003 

0086 

0380 

0395 

0396 

0401 

0406 

0412 

0418 

0424 

0433 

V>R4 


0004 

0087 

0155 

0160 

0181 

0188 






R5 


0005 

0088 










R6 


0006 

0089 










R7 


0007 

0090 

0225 

0226 

0257 

0270 






R8 


0008 

0091 

0200 

0203 

0214 

0224 

0228 

0241 

0245 

0254 

0256 





0269 

0311 

0322 

0337 

0342 

0355 

0365 

0372 

0413 





0416 

0440 

0448 







R9 


0009 

0092 

0206 

0207 

0209 

0215 

0217 

0226 

0248 

0250 

0252 





0314 

0317 

0318 

0320 

0324 

0326 

0328 

0333 

0335 





0339 

0343 

0359 

0362 

0363 

0368 

0370 

0374 

0381 





0383 

0385 

0387 

0389 

0391 

0393 

0402 

0414 

0425 





0427 

0431 

0441 

0449 

0457 

0458 

0466 



RDIRDN 

R 

01EE 

0376 

0366 









REDCHR 

R 

027A 

0454 

0316 

0338 

0361 

0373 

0404 

0430 




REDFLO 

R 

0020 

0139 

0289 

0291 

0298 

0312 

0357 





REDRDY 

R 

027A 

0455 

0456 









REF 




0054 

0055 








ROFLOP 

R 

0222 

0402 

0405 









RRQ 


000C 

0078 

0455 

0459 








RT 




0283 

0292 

0299 

0442 

0450 

0460 

0471 



RTS 


000A 

0076 

0465 

0470 








SBO 




0459 

0465 

0469 







SBZ 




0470 









SOCB 




0277 

0281 

0346 







SP 

jfVTCR 

^JrTRCHR 


0020 

0115 

0134 

0458 









R 

0266 

0438 

0332 

0367 








SVSFLQ 


0002 

0040 

0277 

0281 

0346 







TB 




0455 

0467 








TITL 

UE 


000F 

0048 

0001 












TTYPT 


SDSMflC 947075 *D 13 

: 15 : 10 

FRIDAY, FEB 

CD 

rl 

1977. 


LABEL 


VALUE 

DEFN 

REFERENCES 

948941 

-9901 
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** 


„ 

UEMASK 

E 

0110 

0054 

0277 

0281 







UP INC 

R 

01E2 

0372 

0369 








USEFLG 


' 0002 

0041 

0278 

0282 







WDREND 

R 

©0E4 

0256 

0246 








WDRLOP 

R 

00C0 

0245 

0255 








WRQ 


000B 

0077 

0467 

0469 







WRQRDV 

R 

028A 

0467 

0468 








WRTFLG 

R 

001E 

0138 

0156 

0158 

0178 

0183 

0186 

0201 

0243 

0267 

ZERO 


0000 

0103 

0121 

0414 

0124 

0125 

0125 

0126 

0127 

0128 

0318 0263 
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DEBUG RUN COMMAND PXRATE 936187-3901 ** 


FEB 18, 1977. 


PAGE 0001A 



v 0003 

* 

PROCEDURE RUN < CFO; 

0004 

* 

/* RUN CONTROLS THE EXECUTION OF 

J0005 

* 

A USER PROGRAM UNDER EITHER SIE 

r 0006 

* 

OR TRACE MODE. IT PROVIDES THE 

0007 

* 

USER'S KEYBOARD LEVEL CONTROL 

0003 

Me 

OF THE SYSTEM. 

0009 

* 

*/ 

0010 

* 

IF CPL. PARM1 . NE. NULL THEN DO; 

0011 

M< 

INSTRUCT I ON_COUNT = CPL. PRRM1; 

0012 

* 

END; 

0013 

* 

DO UNITL RETURN_TO_OPERATOR; 

0014 

* 

CALL SCAN_TABLE<TRACE, USER-PC, FOUND>; 

0015 

* 

IF . NOT. FOUND THEN DO; 

0016 

M< 

CALL S I E< USER-PC, USER-WP, USER-ST); 

0017 

M< 

END; ELSE DO; 

0018 

M< 

IF TRACE NE RESIDENT THEN ERROR EXIT; 

0019 

* 

CALL TRACER C USER-PC, USER-WP, USER-ST); 

0020 

* 

END; 

0021 

M< 

IF WRITE_PROTECT_ERROR = 1 THEN ERROR EXIT 

0022 

* 

IF USER_PC < LOW-LIMIT . OR. USER-PC > 

0023 

* 

HIGH_LIMIT THEN DO; 

0024 

* 

INSTRUCTION-COUNT = I NSTRTUCT I ON-COUNT -1; 

9025 

* 

CALL SCAN_TABLE < BREAKPOINT, USER_PC, FOUND); 

0026 

* 

IF FOUND THEN DO; 

0027 

M< 

CALL BREAKPO I NT_PROCESS<USER_PC, BREAK-#, 

0028 

* 

BREAK-ENTRY; TERM); 

s 0029 

* 

IF TERM THEN SIGNAL RETURN-TO-OPERATOR 

*0030 

* 

END; 

" 0031 

* 

IF INSTRUCTION-COUNT . EQ. 0 THEN 

0032 

* 

S I GNAL RETURN-TO_OPERATOR; 

0033 

M< 

IF INSTRUCTION-COUNT . EQ. -1 THEN 

0034 

* 

INSTRUCTION-COUNT = INSTRUCTION-COUNT +1; 

0035 

* 

CALL MON I TOR_CHAR < CHAR, NO-WAIT); 

0036 

M< 

IF CHAR . EQ. ESCAPE THEN SIGNAL 

0O37 

Me 

RETURN_TO_OPERATOR; t t 

0033 

Me 

END; 

0839 

Me 

END; 

0040 

M: 

RETURN_TO_OPERATGR : 

0041 

Me 

END RUN; 

0042 


IDT •RUNPGN" 

0043 

M: 

TITLE: RUN 

0044 

M< 

RUN USER PGM UNDER DEBUG 

0045 

Me 

REVISION: 

0046 

Me 

ORIGINAL 

0047 

M- 

12/13/76 MODIFIED FROM ORIGINAL PROTOTYPING 

0048 

Me 

SYSTEM TO CORRECT A RUN COUNT COMPUTA 

0O49 

Me 

ERROR. 

0050 


COMPUTER : 990, ASM 

0851 

Me 

ABSTRACT: THIS ROUTINE CONTROLS THE DEBUG EXECUTION 

0052 

M« 

OF A USER'S PROGRAM. 

0053 

Me 

CALL I NG SEQUENCE : 

0054 

M< 

BL QRUN 

10055 

M< 

R10 = F'TR TO COMMOND PARAMETER LIST 

%056 

M< 


0057 

Me 

REF'S AND DEF'S 

0058 

Me 


0053 


DEF RUN 

0060 


REF GETBIJF 

0061 


REF RETBUF 
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DEBUG RUN COMMAND PXRATE 936187-9901 ** 


PAGE 0002 






0063 




REF 

RWP 


0064 




REF 

ACL 


0065 




REF 

RR 


0066 




REF 

INSCNT 

INSTRUCTION COUNT 

0067 




REF 

TRACE 


0068 




REF 

ERROR 


0069 




REF 

BKPT 


0070 




REF 

BKPTPR 


0071 




REF 

PCOUT 


0072 




REF 

LOWLIM 


0073 




REF 

HILIM 


0074 




REF 

ESC 


0075 




REF 

SIE 


0076 




REF 

TRACER 


0077 




REF 

SREGN 


00 28 




REF 

MONCHR 


0079 




REF 

USRPC 


0030 




REF 

SCTB 


0081 




REF 

STRPRT 


0032 




REF 

CRUPRT 


0083 



* 




0034 



^WORKSPACE REGISTER DEFINITIONS 

0035 



* 




0036 


0000 

RO 

EQU 

0 


0087 


0001 

R1 

EQU 

1 


0033 


0002 

R2 

EQU 

2 


0039 


0003 

R3 

EQU 

3 


0090 


0004 

R4 

EQU 

4 


0091 


0005 

R5 

EQU 

5 


0092 


0006 

R6 

EQU 

6 


0093 


0007 

R7 

EQU 

7 


0094 


0008 

R8 

EQU 

3 


0095 


0009 

R9 

EQU 

9 


0096 


000 A 

RIO 

EQU 

10 


0097 


000B 

RL1 

EQU 

11 

1 ; 

0093 


000C 

R12 

EQU 

12 


0099 


000D 

R13 

EQU 

13 


0100 


000E 

R14 

EQU 

14 


0101 


000F 

R15 

EQU 

15 


0102 



M 




0103 



M 




0104 


0004 

MX 04 

EQU 

>0004 

TRV TO EX TRACE WHEN NOT IN 0 

0105 


0007 

MX07 

EQU 

>0007 

WRITE PROTECT VIOLATION 

0106 


0001 

PRTVIO 

EQU 

1 


0107 



* 




0108 



* 



1-PROCEDURE RUN < CPL ') i 

0109 


0000 ' 

RUN 

EQU 

t 


0110 


•.4~- 

* +ALLOC, 

COPY, LINK 


0111 

0000 

0420 


BLWP 

0 ACL 



0002 

0000 





0112 



* 



2 -/* RUN CONTROLS THE EXECUTIO 

01-13 



* 



2- A USER PROGRAM UNDER El TH 

|0114 



* 



2- OR TRACE MODE. IT PROVIDE 

0115 



* 



2- USER'S KEYBOARD LEVEL CON 

0116 



* 



2- OF THE SYSTEM. 

0117 



* 



2-+/ 

0118 



* 



2- IF CPL. PARM1 . NE. NULL THEN 

0119 

0004 

C27A 


MOV 

*R1.0+, R9 


0128 

0006 

0099 


SLA 

P'9, 9 



RUNPGN 
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DEBUG 

RUN COMMAND PXRATE 

936187-9901 

** 

PAGE 0003 

0122 


* 




3- 1 NSTRUCT I ON-COUNT = CPL. PARM 

f ' 0123 

000R 

C81R 

MOV 

*R10, 0INSCNT 



© . 

000C 

0000 





w 0124 


* 




2-END; 

0125 


000E " RUN010 

EQU 

$ 



0126 


>♦< 




2-DO UNITL RETURN_TO_OPERATOR; 

0127 


* 




3-CALL SCAN-TABLE (TRACE, USER-P 

0128 

000E 

020R 

LI 

RIO, TRACE 




0010 

0000 





0129 

0012 

C260 

MOV 

0IJSRPC, R9 




0014 

0000 





0130 

0016 

06R0 

BL 

0SCTB 




0018 

0000 





0131 


* 




3- IF . NOT. FOUND THEN DO; 

0132 

00 1R 

C28R 

MOV 

R10, R10 


0 => FOUND 

0133 

001C 

1303 

JEQ 

RUN020 



0134 


001E" RUN015 

EQU 

$ 



0135 


>♦< 




4-CALL S IE (USER— PC, USER-WP, USE 

0136 

001E 

06R0 

BL 

0SIE 




0020 

0000 





0137 


* 




3-END; ELSE DO; 

0138 

0022 

1008 

JMP 

RUN030 



0139 


0024 " RUN020 

EQU 

% 



0140 


*******:t:**.4<CHECK THAT TRACE 

OVERLAY IS PRESENT 

0141 


* 




4- IF TRACE NE RESIDENT THEN ER 

0142 

0024 

C2R0 

MOV 

0SREGN, R'10 




0026 

0000 





{ #1)0143 

0028 

132C 

JEQ 

RUN055 



**0144 


* 




4-CALL TRACER (USER-PC, USER-WP, 

0145 

002R 

06R0 

BL 

01 RACER 




002C 

0000 





0146 


* 




3-END; 

0147 

002E 

102D 

JMP 

RUII060 



0148 

0039 

06R0 

BL 

0PCOUT 


OUTPUT USRPC TO PANEL 


0032 

0000 





0149 


0034" RUN030 

EQU 

$ 



0150 


* 




3-IF WRITE_PROTECT_ERROR = 1 T 

0151 

0034 

020R 

LI 

R10, MX 07 




0036 

0007 





0152 

0038 

020C 

LI 

R12, CRUPRT 




003R 

0000 





0153 

003C 

IF 81 

TB 

PRTVIO 



0154 

003E 

1603 

JNE 

RIJN 032 



G155 

0040 

3020 

LDCR 

0STRPRT, 0 


RESET VIO FLAG AND RESTORE PR 


0042 

0000 





0156 

0044 

1020 

JMP 

RUN057 


ERROR EXIT 

0157 


0046" RUN032 

EQU 

* 



0158 

0046 

C2606 

MOV 

0USRPC, R9 




0048 

0014" 





0159 


+ 




3-IF USER-PC < LOW-LIMIT . OR. 

0160 






4-HIGH-LIMIT THEN DO; 

-.0161 

004R 

8809 

C 

R9, 0LOMLIM 




094 C 

0000 





Wlil62 

00 4 E 

1R03 

JL 

PUN035 



0163 

0050 

8809 

c 

R9, 0HILIM 




0052 

0000 





0164 

0054 

1RDC 

JL 

RIJNO10 



0165 


0056" RUN035 

EQU 

t 




0166 :4c 


4- I NSTRUCT I ON-COUNT 


INSTRTUC 
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DEBUG RUN COMMAND PXRflTE 936187-9981 ** PAGE 0004 



0058 

000C " 




8168 

005A 

1302 

JEQ 

RUN040 

IF COUNT =0, SKIP DEPLETION 

0169 

005C 

0620 

DEC 

0INSCNT 

DECREMENT COUNT. 


005E 

0058 " 




0170 

0060 

1214 

JEQ 

RUN060 

IF DEPLETED, RETURN TO MON I 

0171 


* 



4-CftLL SCftN_TflBLE< BREAKPOINT, U 

0172 

0062 

020ft RUN040 

LI 

R10, BKPT 



0064 

0000 




0173 

0066 

06fl0 

BL 

0SCTB 



0068 

0018" 




0174 





4- IF FOUND THEN DO; 

0175 

006A 

C28R 

MOV 

R10, R10 


0176 

006C 

1604 

JNE 

RUN050 


9177 


* 



5-CALL BREAKPO I NT_PROCESS < USER 

0178 


* 



6-BRERK_ENTRV; TERM>; 

0179 

006E 

06fl0 

BL 

0BKPTPR 



0070 

0000 




.0180 


* 



4- IF TERM THEN SIGNAL RETURN-T 

0181 

0072 

C28A 

MOV 

R10, R10 


0182 

0074 

160fl 

JNE 

RIJN060 


0183 


* 



4-END; 

0184 


0076" RUN050 

EQU 

$ 


0185 


* 



4-CALL MON I TOR_CHRR< CHAR, NO_WA 

0186 

0076 

06ft0 

BL 

0MONCHR 



0078 

0000 




0187 





4- IF CHAR . EQ. ESCAPE THEN SIG 

/SSs 0133 


* 



5-RETURN_T0_0PERAT0R; 

r vT* 8189 

007A 

9389 

CB 

R9, 0ESC 



007C 

0000 




0190 

007E 

16C7 

JNE 

R UNO 10 


0191 

0080 

1004 

JMP 

RUN060 


0192 


# 



3-END; 

0192 


M 



2-END; 

8194 


0082" RUN055 

EQU 

$ 


0195 

0082 

020ft 

LI 

R10, MX04 



0084 

0004 




0196 


0086" RUN057 

EQU 

$ 


0197 

0086 

06ft0 

BL 

0ERROR 



0088 

0000 




0198 


M 



2-RETURN_T0_0PERAT0R : 

0199 


008ft" RUN060 

EQU 

$ 


0200 


* 



1-END RUN; 

0201 


* +LINK 

TO PREV WKSP, 

RET CURR WKSP 

8202 

008ft 

0420 

BLWP 

0RR 



008C 

0000 




0203 

008E 

045B 

RT 



0204 



END 




NO ERRORS 


RUNPGN SDSMAC 947075 *D 13:51:44 FRIDAV/ FEB 18/ 1977. 


LABEL 


VALUE 

DEFN 

REFERENCES 

tSk. 

R 

0090 


0109 

0125 




0196 

0199 

H3CL 

E 

0002 

0064 

0111 


BKPT 

E 

0064 

0069 

0172 


BKPTPR 

E 

0070 

0070 

0179 


BL 




0130 

0136 

BLWP 




0111 

0202 

C 




0161 

0163 

CB 




0139 


CRUPRT 

E 

003A 

0082 

0152 


DEC 




0169 


DEF 




0059 


END 




0204 


EQU 




0086 

0887 





0095 

0096 





0106 

0109 





0194 

0196 

ERROR 

E 

0088 

0063 

0197 


ESC 

E 

007C 

0074 

0189 


GETBUF 

E 


0060 



HILIM 

E 

0052 

0073 

0163 


IDT 




0042 


INSCNT 

E 

005E 

0066 

0123 

0167 

JEQ 




0133 

0143 

JL 




0162 

0164 

Jf'IP 




0138 

0147 

/CNtnc 




0121 


©JNE 




0154 

0176 

LDCR 




0155 


LI 




0128 

0151 

LOWLIM 

E 

004C 

0072 

0161 


LWP 

E 


0062 



MONCHR 

E 

0073 

0078 

0186 


MOV 




0119 

0123 

MX04 


0004 

0104 

0195 


MX07 


0007 

0105 

0151 


PAGE 




G002 


PCOUT 

E 

0032 

0071. 

0148 


PRTVIO 


0001 

0106 

0153 


R0 


0000 

0036 

0167 


R1 


0001 

0087 



R10 


000 A 

0096 

0119 

0123 





0175 

0181 

Rll 


000B 

0097 



R12 


000C 

0093 

0152 


R13 


000D 

0099 



R14 


000E 

0100 



R15 


000F =>- 

0101 



R2 


0002 

0083 



R2 


0003 

0039 



R4 


0004 

0030 





0005 

0091 





0006 

0092 



^7 


0007 

0093 



R8 


0003 

0094 



R9 


0009 

0095 

0119 

0120 

REF 




0060 

0061 





0069 

0070 





0078 

0079 


936187-9901 ** PAGE 0005 

8134 8139 0149 8157 0165 0184 0194 


0145 0148 8173 8179 0186 0197 


0088 

0089 

0090 

0091 

0092 

0093 

0094 

0097 

0098 

0099 

0100 

0101 

0104 

0105 

0125 

0199 

0134 

0139 

0149 

0157 

0165 

0184 


0169 

0163 0178 

0156 0191 

0182 0190 

0152 0172 0195 


0129 0132 0142 0158 0167 0175 0181 


0123 0132 0132 0142 0151 0172 0175 

0181 0195 


0129 

0158 

0161 

0163 

0189 



0062 

0063 

0064 

0065 

0Q66 

.0067 

O068 

0071 

0080 

0072 

0081 

0073 

0032 

0074 

00^5 

0076 

0077 
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RUNO10 R 
RUN015 R 
RUN020 R 
RUNO30 R 
RUN032 R 
RUN035 R 
RUN040 R 
RUN050 R 
RUN055 R 
RUN057 R 
RUN960 R 
RWP E 
SCTB E 
SIE E 
SLA 

SREGN E 
STRPRT E 
TB 

TITL 

TRACE E 
TRACER E 
USRPC E 


008C 

8065 

0000 

0109 

000E 

0125 

001E 

0134 

0024 

0139 

0034 

0149 

0046 

0157 

0056 

0165 

0062 

0172 

0076 

0184 

0082 

0194 

0086 

0196 

008A 

0199 

0063 

0063 

0080 

0020 

0075 

0026 

0677 

0042 

0081 


0010 

0067 

002C 

0076 

0048 

0079 


0202 

0203 

0059 

0121 0164 

0133 
0138 \ 

0154 
0162 
0168 * 

0176 

0143 

0156 

0147 0170 

0130 0173 

0136 

0120 

0142 

0155 
0153 
0001 
0128 
0145 
0129 


0190 


0182 0191 


0158 


PAGE 0006 



ri-»*uc 


























PAGE ©001 A 


h SC 01 


Sir: 

rllfic 94, 

: '0?5 : + : B 87:43:53 TUESDflV, NOV 30, 1976. 

HMPLJ 

£ PR nr 

iRfiM 2 


936145-9901 : + :; + : PAGE 00101 

0002 




IDT "BASCON"' 

0 0 0 ,< 
0004 



* 

THIS PROGRAM TAKES AN ASCII NUMBER AND 

000 5 




CONVERTS IT TO A SPECIFIC BASE IN Z'S 

0066 




COMPLEMENT NOTATION. THE POSITIVE 

0007 




NUMBER MUST BE IN 7-BIT ASCII FORMAT 

0008 




STARTING AT LOCATION < INDEPENDANT OF PROGRAM 

000.9 




BASE ADDRESS > >104, ONE DIGIT PER BYTE. 

001.0 



•¥ 

THE BASE VALUE SHOULD BE A DATA WORD AT 

0011 




LOCATION >100.: THE LENGTH OF THE NUMBER 

0012 




TO BE CONVERTED, IN DIGITS, SHOULD BE AT 

0012 




DATA LOCATION >102. 

0614 



:+: 

THE RESULT IS RETURNED AT LOCATION >120. 

@01.5 




NO ASCII VALIDITY CHECKS OR OVERFLOW CHECKS 

0010 




ARE MADE. 

@01 7 
@018 

0000 

@2E0 

•+ : 

ENTRV 

LWPI WRKS 


0002 

8122 



001 9 

0004 

0402 


CL.R R2 R2-L0GP COUNTER 

@@28 

0006 

04 C 3 


CLR R3 R3« INTERMEDIATE ACCUMULATOR 

@021. 

@008 

28 E0 

LOOP 

MPV ©BASE, R3 MULT. SUBRESULT BY BASE 

0022 

@ @ 0 R 
0 0 0 C 

@ 1. 0 0 
0004 


MOV R4, R3 LOAD LEAST Sl'G. BITS OF RESULT 

@822 

000E 

D122 


MOVE ©NUMBER < R2 >, R4 


0010 

0:184 



0824 

09:12 

8984 


SRL R4, 8 

@025 

00:14 

R804 


A R4, R2 ADD NEXT DIGIT 

0026 

00:16 

0222 


A I R3, -30 


0018 

PTE 2 



0827 

001 fl 

0582 


INC R2 

0928 

00.10 

8862 


C R2,- ©LENGTH 


001 E 

0102 



0829 

0020 

16F2 


JNE LOOP JUMP BACK IF NOT DONE 

0020 

0022 

0802 

MOV 

MOV R3, ©RESULT 


0024 

0128 



002:1 

0026 

2 FES 


XOP ©OUT, 15 


0028 

@142 



0822 

0100 



AORG >1001 

0822 

0:100 

0010 

BASE 

DATA >10 

0034 

0:102 

0006 

LENGTH 

DATA >6 

80.25 

0:184 


NUMBER 

BSS >10 

@026 

0126 



AORG >120 

0027 

0120 

0000 

RESULT 

DATA 0 

0028 

©122 


WRKS 

BSS >20 

0029 

0:142 

0400 

OUT 

DATA >0400 

0040 

0:144 

0000 *" 


END ENTRY 


NO ERRORS 




f.~ n^L-UN 


•‘SI'IHC 9* 

*7075 

07 

’ : 43 : 58 TUESDAY, NOV 30, 

l _ l'~] B j— j 

VALUE 

DFFN 

RFFFFFNFFF 







936145-9901 ** 

H 



0025 



rt j.. 



0026 



hORG 



0832 

0036 


Bh.SE 

” 0:100 

0033 

0021 






0035 

0038 


L 



0028 



CLR 



0019 

0020 


DATA 



0033 

0034 

0937 0039 

END 



0040 



ENTRV F 

i 0000 

0018 

0040 



IDT 



0002 



INC 



0027 



■JNE 



0029 



LENGTH 

0:102 

0034 

0028 



LOOP F 

! 0008 

002:1 

0029 



LWPI 



0018 



NOV F 

0822 

0030 

0022 

0030 


MOVE* 



0823 



MPV 



0021 



NUMBER 

0:104 

0035 

0023 



OUT 

0:142 

0039 

003:1 



E2 

0002 


00*19 

0023 

002 7 0028 

& 3 

0003 


0020 

0021 

0022 £1025 0026 0030 

R4 

0004 


802 2 

0023 

0024 0025 

EESUL T 

0120 

0037 

0030 



SRL 



0024 



TITL 



0001 



WEKS 

0:122 

0038 

0018 




0031 


o 


PAGE 800 
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0002 


IDT 

- OPTEST x 


0003 


* 



0004 


* TITLE: 

OPTEST 


0005 


* 

TELETVPE I/O 

OP-CODE TEST PROGRAM 

0006 


* REVISION: 

NOV. 30, 1976 


0007 


* 

ORIGINAL 


0008 


* COMPUTER: 

990 


0009 


* ABSTRACT: 



0010 



TESTS THE VARIOUS INPUT/OUTPUT SUPERVISOR 1 

0011 


* 

CALLS TO/FROM 

THE TELETYPE INTERFACE. 

0012 





0013 


* REGISTER 

EQUATES 


0014 


• 4 * 



0015 

0000 

R0 EQU 

0 


0016 

0001 

Rl EQU 

1 


0017 

0002 

R2 EQU 

2 


0018 

0003 

R3 EQU 

3 


0019 

0004 

R4 EQU 

4 


0020 

000B 

Rll EQU 

11 


0021 





0022 0000 


wsp bss 

32 

WORK SPACE REGISTERS 

0023 0020 

02E0 

START LWPI 

WSP 

GET WORK SPACE 

0022 

0000 x 




0024 0024 

2FE0 

AGAIN XOP 

©HEAD, 15 

INPUT S, E, 0 FOE STOP, ERR PRO 

0026 

00E8" 




0025 0028 

2FE0 

X 

o 

D 

©REPLY, 15 

OR OP CODE PRO 

002R 

0154 ' 




0026 


* 



0027 


* DECISION 

BRANCH R2=LUN0.i 

R.3= OP CODE 

0028 





0029 002C 

C060 

MOV 

©IMP, R1 

GET INPUT 

002E 

01DE' 




0030 0030 

0241 

AND I 

Rl, >7F00 

MASK OFF GARBAGE 

0032 

7F00 




0031 0034 

0221 

AI 

Rl, ->4500 

IS IT AN E? 

0036 

BB00 




0032 0038 

1308 

JEQ 

ERRPRO 

YES, ERROR PROCEDURE 

0033 003A 

0221 

AI 

Rl, ->A00 

IS IT AN 0? 

003C 

F600 




0034 003E 

1316 

JEQ 

OPCPRO 

YES, OP CODE PROCEDURE 

0035 0040 

0221 

AI 

Rl, ->400 

IS IT AN S? 

0042 

FC00 




0036 0044 

16EF 

JNE 

AGAIN 

NO, PROMP AGAIN 

0037 





0038 


+• RETURN TO 

MONITOR 


0039 


•* 



0040 0046 

2FE0 

XOP 

©RET, 15 

RETURN 

0048 

0152 ' 




0041 





0042 


+ ERROR PROCEDURE 


0042 


* 



0044 004A 


ERRPRO EVEN 



0045 004R 

2FE0 

XOP 

©ASKOP, 15 

OUTPUT PROMPT 

004C 

00F4 •' 




0046 004E 

2FE0 

XOP 

©INPCD, 15 

INPUT REPLY 

0050 

0100 '■ 




0047 0052 

c? 

CO 

r«o 

© 

Move 

©INBUF, ©VAL 

SET UP FOR CONVERSION 

0054 

01E0-' 




0056 

0111- 




0048 0058 

2FE0 

XOP 

©COMBI, 15 

CONVERT 
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085A 

010C ' 





0849 

005C 

0600 


SWPB 

R0 

RESULTS IN LEFT BYTE 

0050 

005E 

D800 


MOVB 

R0. 0IOOP 

DEPOSIT FOR PROCESS 


0060 

0126' 





0051 

0062 

06A0 


BL 

©TESTOT 

PROCESS CALL 


0064 

0008'' 





0052 

0066 

04E0 


CLR 

©SYSFL 

CLEAR ALL ERR FLAGS 


0068 

0128'' 





0053 

006A 

10DC 

OVER JMP 

AGAIN 

DO IT AGAIN 

0054 







0055 



* 

OP CODE PROCEDURE 


0056 







0057 

006C 


OPCPRQ EVEN 



0058 

00 6 C 

2FE0 


XOP 

©ASKOP. 15 

OUTPUT PROMPT 


006E 

00F4" 





0059 

0070 

2FE0 


XOP 

©INPCD. 15 

GET REPLY 


0072 

0100' 





8060 

0074 

D820 


MOVB 

©INBUF. ©VAL 

SET UP FOR CONVERSION 


0076 

01E0-" 






0078 

0111" 





0061 

007A 

2FE0 


XOP 

©COMBI. 15 

CONVERT 


007C 

0100" 





0062 

007E 

0600 


SWPB 

R0 

PUT IN LEFT BYTE 

0063 

8080 

0000 


MOV 

R0. R3 

GET REPLY VALUE 

0064 

0882 

0243 


AND I 

R3. >7F00 

FIRST REPLY ONLY 


0084 

7F00 





0065 

0086 

C0A0 


MOV 

©INBUF. R2 



0088 

01E0" 





0066 

008A 

0242 


AND I 

R2. >7F 

SECOND REPLY ONLY 


008C 

007F 





0067 

008E 

0282 


01 

R2. >50 

IS IT PUNCH? 


0090 

0050 





0868 

0092 

1605 


JNE 

REDTES 

NO. CHECK ASCII OR DIRECT 

0069 

0094 

D800 


MOVB 

R0. @1 OOP 

DEPOSIT RESULTS 


0096 

0126' 





0070 

0098 

06A0 


BL 

©TESTOT 

PROCESS CALL 


009A 

0808' 





0071 

009C 

1003 


JMP 

AGAIN 

DO IT AGAIN 

0072 







0073 



'¥ 

CHECK READ ASCII OR DIRECT 


0074 







0075 

009E 


REDTES EVEN 



0076 

009E 

0282 


01 

R2. >52 

IS IT READ? 


00A0 

0052 





0077 

80A2 

1600 


JNE 

AGAIN 

NO. BAD START 

0078 

00A4 

0283 


01 

R3. >A00 

IS IT READ DIRECT? 


00A6 

0A00 





0079 

08A8 

1603 


JNE 

WRTASC 

CHECK READ ASCII 

0080 

00AA 

2FE0 


XOP 

©REDD I R. 15 

PROCESS IT 


00AC 

0146' 





0081 

00AE 

10DD 


JMP 

OVER 

DO IT AGAIN 

0082 

00B0 

0283 

WRTASC 01 

R3. >908 

IS IT READ ASCII? 


00B2 

0900 





0083 

8084 

1603 


JNE 

REDOPN 

IS IT OPEN READER? 

0084 

00B6 

2FE0 


XOP 

©REDASC. 15 

PROCESS IT 


00B8 

0130' 





0085 

00BA 

10D7 


JMP 

OVER 

DO IT AGAIN 

0886 



*: 




0087 

00BC 

0283 

REDOPN 01 

R3. >8 

IS OP CODE OPEN VALUE? 


00BE 

0000 
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936146-9901 ** 

PAGE 0083 

0088 

00C0 

16D4 


JNE 

OVER 

NO, BAD START 

0089 

00C2 

2FE0 


XOP 

©OPNRED, 15 

YES, OPEN READER 


00C4 

013C" 





0090 

00C6 

10D1 


JMP 

OVER 

PROMPT AGAIN 

0091 



* 




0092 



* ALL 

PURPOSE XOP 


0093 



* 




0094 

00C8 


TESTOT 

EVEN 



0095 

00C8 

2FE0 


XOP 

©SUPCL, 15 

PROCESS CALL 


00CA 

0124 " 





0096 

00CC 

C820 


MOV 

©CARLIN, ©OUTBUF 

GET CR, LF 


00CE 

01 A8" 






00D0 

0114" 





0097 

00D2 

04E0 


CLR 

©0UT2 



00D4 

0116" 





0098 

00D6 

2FE0 


XOP 

©OUTRES, 15 

OUTPUT CR, LF 


00D8 

0118 " 





0099 

00DA 

0020 


MOV 

©SVSFL, R0 

FLAGS IN R0 


00DC 

0128" 





0100 

00DE 

2FE0 


XOP 

©CONAS, 15 

CONVERT TO ASCII 


00E0 

0112" 





0101 

00E2 

2FE0 


XOP 

©OUTRES, 15 

OUTPUT RESULTS 


00E4 

0118" 





0102 

00E6 

045B 


B 

*R11 

RETURN 

0103 



M 




0104 



* PRB 

DATA TABLES 


0105 



* 




0106 

00E8 


HEAD 

EVEN 



0107 

00E8 

0000 


DATA 

0 

OUTPUT MESS TO LOG 

0108 

00EA 

0B00 


DATA 

>B00 


0109 

00EC 

0000 


DATA 

0 


0110 

00EE 

0160" 


DATA 

HEADER 


0111 

00F0 

0000 


DATA 

0 


0112 

00F2 

0040 


DATA 

76 


0113 



* 




0114 

00F4 

0000 

ASKOP 

DATA 

0 

OUTPUT PROMPT MESS 

01-15 

00F6 

0B00 


DATA 

>B00 


0116 

00F8 

0000 


DATA 

0 


0117 

00FA 

01 AA" 


DATA 

OUTMES 


0118 

00FC 

0000 


DATA 

0 


0-119 

00FE 

0034 


DATA 

52 


0120 







0121 

0100 

0000 

INPCD 

DATA 

0 

REPLY 

0122 

0102 

0900 


DATA 

>900 


0123 

0104 

0000 


DATA 

0 


0124 

0106 

01E0" 


DATA 

INBUF 


0125 

0108 

0002 


DATA 

2 


0126 

010A 

0000 


DATA 

0 


0127 



M 




0128 

010C 

0D00 

COMBI 

DATA 

>0D00 

CONVERT REPLY TO FORM 

0129 

010E 

30 


TEXT 

"000" 



010F 

30 






0110 

30 





0130 

0111 

30 

VAL 

BVTE 

>30 


0131 



* 




0132 

0112 


CONAS 

EVEN 



0133 

0112 

0000 


DATA 

>000 


0134 

0-114 

0000 

OUTBUF 

DATA 

0 


0135 

0116 

0000 

0UT2 

DATA 

0 





OPTEST SDSMAC 947075 *D 13:37:18 FRIDAY/ FEB 18> 1977. 

SAMPLE PROGRAM 4 936146-9901 ** PAGE 0004 


0137 

0118 


OUTRES 

EVEN 




0138 

0118 

0000 


DATA 

0 



0139 

011A 

0B00 


DATA 

>B00 



0140 

011C 

0000 


DATA 

0 



0141 

011E 

0114 ' 


DATA 

OUTBUF 



0142 

0120 

0000 


DATA 

0 



0143 

0122 

0004 


DATA 

4 



0144 



* 





0145 

0124 

0000 

SUPCL 

DATA 

0 


MAIN CALL TO R/P 

0146 

0126 

00 

IOOP 

BYTE 

0 



0147 

0127 

0A 

LUNO 

BYTE 

>A 



0148 

0128 

00 

SVSFL 

BYTE 

0 



0149 

0129 

00 

USERFL 

BYTE 

0 



0150 

012A 

01E2-' 

BUFAD 

DATA 

BUFFR1 



0151 

012C 

0000 

BUFLIN 

DATA 

0 



0152 

012E 

0014 

CHRCT 

DATA 

28 



0153 



* 





0154 

0130 


REDASC 

EVEN 



READ ASCII 

0155 

0130 

0000 


DATA 

8 



0156 

0132 

0909 

IOOPA 

DATA 

>909 



0157 

0134 

0000 


DATA 

0 



0158 

0136 

01F6' - 


DATA 

BUFFR2 


• 

0159 

0138 

0014 


DATA 

28 



0160 

013A 

0000 


DATA 

0 



0161 



* 





0162 

013C 

0000 

QPNRED 

DATA 

0 



0163 

013E 

0009 


DATA 

>009 


OPEN READER 

0164 

0140 

0000 


DATA 

0.. 0, 0 




0142 

0000 







0144 

0000 






0165 








0166 

0146 

0000 

REDD I R 

DATA 

8 


READ DIRECT 

0167 

0148 

0A09 

IOOPD 

DATA 

>A09 



0168 

014A 

0000 


DATA 

0 



0169 

014C 

020 A" 


DATA 

BUFFR3 



0170 

014E 

0014 


DATA 

20 



0171 

0150 

0000 


DATA 

0 



0172 








0173 

0152 


RET 

EVEN 




0174 

0152 

0408 


DATA 

>400 



0175 



* 





0176 

0154 

0000 

REPLY 

DATA 

0 


BRANCH INPUT 

0177 

0156 

0900 


DATA 

>900 



0178 

0158 

0000 


DATA 

0 



0179 

015A 

01DE •' 


DATA 

IMP 



0180 

015C 

0001 


DATA 

1 



0181 

015E 

0000 


DATA 

0 



0182 



* 





0183 



* PRB STORAGE OUTPUT 

AREA 


0184 








0185 

0160 

0A8D 

HEADER 

DATA 

>A0D 



0186 

0162 

49 


TEXT 

'INPUT S 

FOR STOP 

OR E FOR ERROR PROCEDURE ' 


0163 4E 

0164 50 

0165 55 

0166 54 

0167 20 

0168 53 

0169 20 

016A 46 
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016B 

4F 


016C 

52 


016D 

20 


016E 

53 


016F 

54 


0170 

4F 


0171 

58 


0172 

28 


8173 

4F 


0174 

52 


0175 

28 


0176 

45 


0177 

28 


0178 

46 


0179 

4F 


017A 

52 


017B 

28 


017C 

45 


017D 

52 


017E 

52 


017F 

4F 


0180 

52 


0181 

20 


0182 

58 


0183 

52 


0184 

4F 


0185 

43 


0186 

45 


0187 

44 


0188 

55 


0189 

52 


018A 

45 

0187 

018C 

8A0D 

0188 

018E 

4F 


018F 

52 


0198 

20 


8191 

4F 


0192 

20 


0193 

46 


8194 

4F 


0195 

52 


0196 

20 


0197 

4F 


0198 

50 


0199 

28 


019A 

43 


019B 

4F 


019C 

44 


019D 

45 


019E 

28 


819F 

58 


01A0 

52 


81A1 

4F 


01A2 

43 


01A3 

45 


01A4 

44 


01A5 

55 


01A6 

52 


01A7 

45 

0189 

01A8 

0A8D 


DATA >A0D 

TEXT "OR 0 FOR OP CODE PROCEDURE" 


CARLIN DATA >A0D 
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0190 

0191 

01AA 

0A0D 

0192 

01AC 

45 


01AD 

4E 


01AE 

54 


01AF 

45 


01B0 

52 


01B1 

20 


01B2 

44 


01B3 

45 


01B4 

53 


01B5 

49 


01B6 

52 


01B7 

45 


01B8 

44 


01B9 

20 


01BA 

4F 


01BB 

50 


01BC 

2D 


01BD 

43 


01BE 

4F 


01BF 

44 


01C0 

45 


01C1 

20 


01C2 

41 


01C3 

4E 


01C4 

44 


01C5 

20 


01C6 

4D 


01C7 

4F 


01C8 

44 


01C9 

45 


01CA 

20 


01CB 

28 


01CC 

52 


01CD 

3D 


81CE 

52 


01CF 

45 


01D0 

41 


01D1 

44 


01D2 

2C 

0193 

01D3 

20 


01D4 

50 


01D5 

3D 


01D6 

50 


01D7 

55 


01D8 

4E 


01D9 

43 


01DA 

48 

0194 

01DC 

0A0D 

0195 

0196 

01DE 

0000 

0197 

01E0 

0000 

0198 

01E2 

20 


01E3 

21 


01E4 

30 


01E5 

31 


01E6 

70 


01E7 

33 


01E8 

41 


OUTMES DATA >A0D 

TEXT ' ENTER DESIRED OP-CODE AND MODE <R=READ. ' 


TEXT •- P=PUNCH " 


DATA >A0D 

* 

IMP DATA 0 
IN6UF DATA 0 
BUFFR1 TEXT " ! 0123 ABCD" 
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01E9 42 

01EA 43 
01EB 44 

0199 01EC 7E7F DATA >7E7F, >0809, >070A, >0102, >2020 

01EE 0809 

01F0 070A 
01F2 0102 
01F4 2020 

0200 01F6 BUFFR2 BSS 20 

0201 020A BUFFR3 BSS 20 

0202 0020' END START 

NO ERRORS 
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AGAIN 

R 

0024 

0024 

0036 

0053 

0071 

0077 


AI 




0031 

0023 

0035 



AND I 




0030 

0064 

0066 



ASKOP 

R 

00F4 

0114 

0045 

0058 




B 




0102 





BL 




0051 

0070 




BSS 




0022 

0200 

0201 



BUFAD 

R 

012A 

0150 






BUFFR1 

R 

01E2 

0198 

0150 





BUFFR2 

R 

01F6 

0200 

0158 





BUFFR3 

R 

020A 

0201 

0169 





BUFLIN 

R 

012C 

0151 






BYTE 




0130 

0146 

0147 

0148 

0149 

CARLIN 

R 

01A8 

0189 

0096 





CHRC'T 

R 

012E 

0152 






Cl 




0067 

0076 

0078 

0082 

0087 

CLR 




0052 

0097 




COMBI 

R 

010C 

0128 

0048 

0061 




CONAS 

R 

0112 

0132 

0100 





DATA 




0107 

0108 

0109 

0110 

0111 





0117 

0118 

0119 

0121 

0122 





0128 

0133 

0134 

0135 

0138 





0143 

0145 

0150 

0151 

0152 





0159 

0160 

0162 

0163 

0164 





0170 

0171 

0174 

0176 

0177 





0185 

0187 

0189 

0191 

0194 

END 




0202 





EOU 




0015 

0016 

0017 

0018 

0019 

ERRPRO 

R 

004A 

0044 

0032 





EVEN 




0044 

0057 

0075 

0094 

0106 

HEAD 

R 

00E8 

0106 

0024 





HEADER 

R 

0160 

0185 

0110 





IDT 




0002 





IMP 

R 

01DE 

0196 

0029 

0179 




INBUF 

R 

01E0 

0197 

0047 

0060 

0065 

0124 


INPCD 

R 

0100 

0121 

0046 

0059 




IOOP 

R 

0126 

0146 

0050 

0069 




I OOP A 

R 

0132 

0156 






I OOPD 

R 

0148 

0167 






JEQ 




0032 

0034 




JMP 




0053 

0071 

0081 

0085 

0090 

JNE 




0036 

0068 

0077 

0079 

0083 

LUNO 

R 

0127 

0147 






LWPI 




0023 





MOV 




0029 

0063 

0065 

0096 

0099 

MOVB 




0047 

0050 

0060 

0069 


OPCPRO 

R 

006C 

0057 

0034 





OPNRED 

R 

013C 

0162 

0089 





0UT2 

R 

0116 

0135 

0097 





OUTBUF 

R 

0114 

0134 

0096 

0141 




OUTMES 

R 

01AA 

0191 

0117 





OUTRES 

R 

0118 

0137 

0098 

0101 




OVER 

R 

006A 

0052 

0081 

0085 

0088 

0090 


R0 


0000 

0015 

0049 

0050 

0062 

0063 

0069 

R1 


0001 

0016 

0029 

0030 

0021 

0033 

0035 

Rll 


000B 

0020 

0102 





R2 


0002 

0017 

0065 

0066 

0067 

0076 


R3 


0003 

0018 

0063 

0064 

0078 

0082 

0087 

R4 


0004 

0019 






REDASC 

R 

0130 

0154 

0084 

- 





0112 

0123 

0129 

0155 

0166 

0178 

0196 

0020 


0114 

0124 

0140 

0156 

0167 

0179 

0197 


0115 

0125 

0141 

0157 

0168 

0180 

0199 


0116 

0126 

0142 

0158 

0169 

0181 


0154 0173 


0088 


0099 
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o 


REDD I R 

R 

0146 

0166 

0080 


REDOPN 

R 

00BC 

0087 

0083 


REDTES 

R 

009E 

0075 

0068 


REPLY 

R 

0154 

0176 

0025 


RET 

R 

0152 

0173 

0040 


START 

R 

0020 

0023 

0202 


SUPCL 

R 

0124 

0145 

0095 


SWPB 




0049 

0062 

SYSFL 

R 

0128 

0148 

0052 

0099 

TESTOT 

R 

00C8 

0094 

0051 

0070 

TEXT 




0129 

0186 

TITL 




0001 


USERFL 

R 

0129 

0149 



VflL 

R 

0111 

0130 

0047 

0060 

WRTRSC 

R 

00B0 

0082 

0079 


WSP 

R 

0000 

0022 

0023 


XOP 




0024 

0025 





0080 

0084 


